;;;; Generated on 3/22/2021 at 17:54:20 (UTC-8).

(COMMON-LISP:DECLAIM
 (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY
  COMMON-LISP:DEBUG COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM
 (COMMON-LISP:INLINE %%SLASDA %SLASDA %%SLASDQ %SLASDQ %%SLASDT %SLASDT
  %%SLASET %SLASET %%SLASQ1 %SLASQ1 %%SLASQ2 %SLASQ2 %%SLASQ3 %SLASQ3 %%SLASQ4
  %SLASQ4 %%SLASQ5 %SLASQ5 %%SLASQ6 %SLASQ6 %%SLASR %SLASR %%SLASRT %SLASRT
  %%SLASSQ %SLASSQ %%SLASV2 %SLASV2 %%SLASWLQ %SLASWLQ %%SLASWP %SLASWP
  %%SLASY2 %SLASY2 %%SLASYF %SLASYF %%SLASYF_AA %SLASYF_AA %%SLASYF_RK
  %SLASYF_RK %%SLASYF_ROOK %SLASYF_ROOK %%SLATBS %SLATBS %%SLATDF %SLATDF
  %%SLATPS %SLATPS %%SLATRD %SLATRD %%SLATRS %SLATRS %%SLATRZ %SLATRZ %%SLATSQR
  %SLATSQR %%SLAUU2 %SLAUU2 %%SLAUUM %SLAUUM %%SOPGTR %SOPGTR %%SOPMTR %SOPMTR
  %%SORBDB %SORBDB %%SORBDB1 %SORBDB1 %%SORBDB2 %SORBDB2 %%SORBDB3 %SORBDB3
  %%SORBDB4 %SORBDB4 %%SORBDB5 %SORBDB5 %%SORBDB6 %SORBDB6 %%SORCSD %SORCSD
  %%SORCSD2BY1 %SORCSD2BY1 %%SORG2L %SORG2L %%SORG2R %SORG2R %%SORGBR %SORGBR
  %%SORGHR %SORGHR %%SORGL2 %SORGL2 %%SORGLQ %SORGLQ %%SORGQL %SORGQL %%SORGQR
  %SORGQR %%SORGR2 %SORGR2 %%SORGRQ %SORGRQ %%SORGTR %SORGTR %%SORGTSQR
  %SORGTSQR %%SORHR_COL %SORHR_COL %%SORM22 %SORM22 %%SORM2L %SORM2L %%SORM2R
  %SORM2R %%SORMBR %SORMBR %%SORMHR %SORMHR %%SORML2 %SORML2 %%SORMLQ %SORMLQ
  %%SORMQL %SORMQL %%SORMQR %SORMQR %%SORMR2 %SORMR2 %%SORMR3 %SORMR3 %%SORMRQ
  %SORMRQ %%SORMRZ %SORMRZ %%SORMTR %SORMTR %%SPBCON %SPBCON %%SPBEQU %SPBEQU
  %%SPBRFS %SPBRFS %%SPBSTF %SPBSTF %%SPBSV %SPBSV %%SPBSVX %SPBSVX %%SPBTF2
  %SPBTF2 %%SPBTRF %SPBTRF %%SPBTRS %SPBTRS %%SPFTRF %SPFTRF %%SPFTRI %SPFTRI
  %%SPFTRS %SPFTRS %%SPOCON %SPOCON %%SPOEQU %SPOEQU %%SPOEQUB %SPOEQUB
  %%SPORFS %SPORFS %%SPORFSX %SPORFSX %%SPOSV %SPOSV %%SPOSVX %SPOSVX %%SPOSVXX
  %SPOSVXX %%SPOTF2 %SPOTF2 %%SPOTRF %SPOTRF %%SPOTRF2 %SPOTRF2 %%SPOTRI
  %SPOTRI %%SPOTRS %SPOTRS %%SPPCON %SPPCON %%SPPEQU %SPPEQU %%SPPRFS %SPPRFS
  %%SPPSV %SPPSV %%SPPSVX %SPPSVX %%SPPTRF %SPPTRF %%SPPTRI %SPPTRI %%SPPTRS
  %SPPTRS %%SPSTF2 %SPSTF2 %%SPSTRF %SPSTRF %%SPTCON %SPTCON %%SPTEQR %SPTEQR
  %%SPTRFS %SPTRFS %%SPTSV %SPTSV %%SPTSVX %SPTSVX %%SPTTRF %SPTTRF %%SPTTRS
  %SPTTRS %%SPTTS2 %SPTTS2 %%SRSCL %SRSCL %%SSB2ST_KERNELS %SSB2ST_KERNELS
  %%SSBEV %SSBEV %%SSBEV_2STAGE %SSBEV_2STAGE %%SSBEVD %SSBEVD %%SSBEVD_2STAGE
  %SSBEVD_2STAGE %%SSBEVX %SSBEVX %%SSBEVX_2STAGE %SSBEVX_2STAGE %%SSBGST
  %SSBGST %%SSBGV %SSBGV %%SSBGVD %SSBGVD %%SSBGVX %SSBGVX %%SSBTRD %SSBTRD
  %%SSFRK %SSFRK %%SSPCON %SSPCON %%SSPEV %SSPEV %%SSPEVD %SSPEVD %%SSPEVX
  %SSPEVX %%SSPGST %SSPGST %%SSPGV %SSPGV %%SSPGVD %SSPGVD %%SSPGVX %SSPGVX
  %%SSPRFS %SSPRFS %%SSPSV %SSPSV %%SSPSVX %SSPSVX %%SSPTRD %SSPTRD %%SSPTRF
  %SSPTRF %%SSPTRI %SSPTRI %%SSPTRS %SSPTRS %%SSTEBZ %SSTEBZ %%SSTEDC %SSTEDC
  %%SSTEGR %SSTEGR %%SSTEIN %SSTEIN %%SSTEMR %SSTEMR %%SSTEQR %SSTEQR %%SSTERF
  %SSTERF %%SSTEV %SSTEV %%SSTEVD %SSTEVD %%SSTEVR %SSTEVR %%SSTEVX %SSTEVX
  %%SSYCON %SSYCON %%SSYCON_3 %SSYCON_3 %%SSYCON_ROOK %SSYCON_ROOK %%SSYCONV
  %SSYCONV %%SSYCONVF %SSYCONVF %%SSYCONVF_ROOK %SSYCONVF_ROOK %%SSYEQUB
  %SSYEQUB %%SSYEV %SSYEV %%SSYEV_2STAGE %SSYEV_2STAGE %%SSYEVD %SSYEVD
  %%SSYEVD_2STAGE %SSYEVD_2STAGE %%SSYEVR %SSYEVR %%SSYEVR_2STAGE
  %SSYEVR_2STAGE %%SSYEVX %SSYEVX %%SSYEVX_2STAGE %SSYEVX_2STAGE %%SSYGS2
  %SSYGS2 %%SSYGST %SSYGST %%SSYGV %SSYGV %%SSYGV_2STAGE %SSYGV_2STAGE %%SSYGVD
  %SSYGVD %%SSYGVX %SSYGVX %%SSYRFS %SSYRFS %%SSYRFSX %SSYRFSX %%SSYSV %SSYSV
  %%SSYSV_AA %SSYSV_AA %%SSYSV_AA_2STAGE %SSYSV_AA_2STAGE %%SSYSV_RK %SSYSV_RK
  %%SSYSV_ROOK %SSYSV_ROOK %%SSYSVX %SSYSVX %%SSYSVXX %SSYSVXX %%SSYSWAPR
  %SSYSWAPR %%SSYTD2 %SSYTD2 %%SSYTF2 %SSYTF2 %%SSYTF2_RK %SSYTF2_RK
  %%SSYTF2_ROOK %SSYTF2_ROOK %%SSYTRD %SSYTRD %%SSYTRD_2STAGE %SSYTRD_2STAGE
  %%SSYTRD_SY2SB %SSYTRD_SY2SB %%SSYTRF %SSYTRF %%SSYTRF_AA %SSYTRF_AA
  %%SSYTRF_AA_2STAGE %SSYTRF_AA_2STAGE %%SSYTRF_RK %SSYTRF_RK %%SSYTRF_ROOK
  %SSYTRF_ROOK %%SSYTRI %SSYTRI %%SSYTRI2 %SSYTRI2 %%SSYTRI2X %SSYTRI2X
  %%SSYTRI_3 %SSYTRI_3 %%SSYTRI_3X %SSYTRI_3X %%SSYTRI_ROOK %SSYTRI_ROOK
  %%SSYTRS %SSYTRS %%SSYTRS2 %SSYTRS2 %%SSYTRS_3 %SSYTRS_3 %%SSYTRS_AA
  %SSYTRS_AA %%SSYTRS_AA_2STAGE %SSYTRS_AA_2STAGE %%SSYTRS_ROOK %SSYTRS_ROOK
  %%STBCON %STBCON %%STBRFS %STBRFS %%STBTRS %STBTRS %%STFSM %STFSM %%STFTRI
  %STFTRI %%STFTTP %STFTTP %%STFTTR %STFTTR %%STGEVC %STGEVC %%STGEX2 %STGEX2
  %%STGEXC %STGEXC %%STGSEN %STGSEN %%STGSJA %STGSJA %%STGSNA %STGSNA %%STGSY2
  %STGSY2 %%STGSYL %STGSYL %%STPCON %STPCON %%STPLQT %STPLQT %%STPLQT2 %STPLQT2
  %%STPMLQT %STPMLQT %%STPMQRT %STPMQRT %%STPQRT %STPQRT %%STPQRT2 %STPQRT2
  %%STPRFB %STPRFB %%STPRFS %STPRFS %%STPTRI %STPTRI %%STPTRS %STPTRS %%STPTTF
  %STPTTF %%STPTTR %STPTTR %%STRCON %STRCON %%STREVC %STREVC %%STREVC3 %STREVC3
  %%STREXC %STREXC %%STRRFS %STRRFS %%STRSEN %STRSEN %%STRSNA %STRSNA %%STRSYL
  %STRSYL %%STRTI2 %STRTI2 %%STRTRI %STRTRI %%STRTRS %STRTRS %%STRTTF %STRTTF
  %%STRTTP %STRTTP %%STZRZF %STZRZF))

(CFFI:DEFCFUN ("slasda_" %%SLASDA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (SMLSIZ :POINTER)
  (N :POINTER)
  (SQRE :POINTER)
  (D :POINTER)
  (E :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (K :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (POLES :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (PERM :POINTER)
  (GIVNUM :POINTER)
  (C :POINTER)
  (S :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASDA
                   (ICOMPQ SMLSIZ N SQRE D E U LDU VT K DIFL DIFR Z POLES
                    GIVPTR GIVCOL LDGCOL PERM GIVNUM C S WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF14594 ':INT32)
                              (SMLSIZ-REF14595 ':INT32) (N-REF14596 ':INT32)
                              (SQRE-REF14597 ':INT32) (LDU-REF14601 ':INT32)
                              (LDGCOL-REF14610 ':INT32) (INFO-REF14617 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF14594 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF14595 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14596 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14597 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14601 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF14610 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14617 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14598 D) (E-REF14599 E)
                                            (U-REF14600 U) (VT-REF14602 VT)
                                            (K-REF14603 K) (DIFL-REF14604 DIFL)
                                            (DIFR-REF14605 DIFR) (Z-REF14606 Z)
                                            (POLES-REF14607 POLES)
                                            (GIVPTR-REF14608 GIVPTR)
                                            (GIVCOL-REF14609 GIVCOL)
                                            (PERM-REF14611 PERM)
                                            (GIVNUM-REF14612 GIVNUM)
                                            (C-REF14613 C) (S-REF14614 S)
                                            (WORK-REF14615 WORK)
                                            (IWORK-REF14616 IWORK))
      (%%SLASDA ICOMPQ-REF14594 SMLSIZ-REF14595 N-REF14596 SQRE-REF14597
       D-REF14598 E-REF14599 U-REF14600 LDU-REF14601 VT-REF14602 K-REF14603
       DIFL-REF14604 DIFR-REF14605 Z-REF14606 POLES-REF14607 GIVPTR-REF14608
       GIVCOL-REF14609 LDGCOL-REF14610 PERM-REF14611 GIVNUM-REF14612 C-REF14613
       S-REF14614 WORK-REF14615 IWORK-REF14616 INFO-REF14617))))

(CFFI:DEFCFUN ("slasdq_" %%SLASDQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (SQRE :POINTER)
  (N :POINTER)
  (NCVT :POINTER)
  (NRU :POINTER)
  (NCC :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASDQ
                   (UPLO SQRE N NCVT NRU NCC D E VT LDVT U LDU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SQRE-REF14619 ':INT32) (N-REF14620 ':INT32)
                              (NCVT-REF14621 ':INT32) (NRU-REF14622 ':INT32)
                              (NCC-REF14623 ':INT32) (LDVT-REF14627 ':INT32)
                              (LDU-REF14629 ':INT32) (LDC-REF14631 ':INT32)
                              (INFO-REF14633 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14619 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14620 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF14621 :INT32) NCVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF14622 :INT32) NRU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF14623 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF14627 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14629 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14631 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14633 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14624 D) (E-REF14625 E)
                                            (VT-REF14626 VT) (U-REF14628 U)
                                            (C-REF14630 C) (WORK-REF14632 WORK))
      (%%SLASDQ UPLO SQRE-REF14619 N-REF14620 NCVT-REF14621 NRU-REF14622
       NCC-REF14623 D-REF14624 E-REF14625 VT-REF14626 LDVT-REF14627 U-REF14628
       LDU-REF14629 C-REF14630 LDC-REF14631 WORK-REF14632 INFO-REF14633))))

(CFFI:DEFCFUN ("slasdt_" %%SLASDT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (LVL :POINTER)
  (ND :POINTER)
  (INODE :POINTER)
  (NDIML :POINTER)
  (NDIMR :POINTER)
  (MSUB :POINTER))

(COMMON-LISP:DEFUN %SLASDT (N LVL ND INODE NDIML NDIMR MSUB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LVL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INODE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        NDIML)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        NDIMR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MSUB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14634 ':INT32) (LVL-REF14635 ':INT32)
                              (ND-REF14636 ':INT32) (MSUB-REF14640 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14634 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LVL-REF14635 :INT32) LVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF14636 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF MSUB-REF14640 :INT32) MSUB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((INODE-REF14637 INODE)
                                            (NDIML-REF14638 NDIML)
                                            (NDIMR-REF14639 NDIMR))
      (%%SLASDT N-REF14634 LVL-REF14635 ND-REF14636 INODE-REF14637
       NDIML-REF14638 NDIMR-REF14639 MSUB-REF14640))))

(CFFI:DEFCFUN ("slaset_" %%SLASET :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %SLASET (UPLO M N ALPHA BETA A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASET)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14642 ':INT32) (N-REF14643 ':INT32)
                              (ALPHA-REF14644 ':FLOAT) (BETA-REF14645 ':FLOAT)
                              (LDA-REF14647 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14642 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14643 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14644 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF14645 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14647 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14646 A))
      (%%SLASET UPLO M-REF14642 N-REF14643 ALPHA-REF14644 BETA-REF14645
       A-REF14646 LDA-REF14647))))

(CFFI:DEFCFUN ("slasq1_" %%SLASQ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASQ1 (N D E WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASQ1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14648 ':INT32) (INFO-REF14652 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14648 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14652 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14649 D) (E-REF14650 E)
                                            (WORK-REF14651 WORK))
      (%%SLASQ1 N-REF14648 D-REF14649 E-REF14650 WORK-REF14651 INFO-REF14652))))

(CFFI:DEFCFUN ("slasq2_" %%SLASQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (Z :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASQ2 (N Z INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASQ2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14653 ':INT32) (INFO-REF14655 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14653 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14655 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14654 Z))
      (%%SLASQ2 N-REF14653 Z-REF14654 INFO-REF14655))))

(CFFI:DEFCFUN ("slasq3_" %%SLASQ3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (I0 :POINTER)
  (N0 :POINTER)
  (Z :POINTER)
  (PP :POINTER)
  (DMIN :POINTER)
  (SIGMA :POINTER)
  (DESIG :POINTER)
  (QMAX :POINTER)
  (NFAIL :POINTER)
  (ITER :POINTER)
  (NDIV :POINTER)
  (IEEE :POINTER)
  (TTYPE :POINTER)
  (DMIN1 :POINTER)
  (DMIN2 :POINTER)
  (DN :POINTER)
  (DN1 :POINTER)
  (DN2 :POINTER)
  (G :POINTER)
  (TAU :POINTER))

(COMMON-LISP:DEFUN %SLASQ3
                   (I0 N0 Z PP DMIN SIGMA DESIG QMAX NFAIL ITER NDIV IEEE TTYPE
                    DMIN1 DMIN2 DN DN1 DN2 G TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASQ3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DESIG)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT QMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NDIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IEEE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT G)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF14656 ':INT32) (N0-REF14657 ':INT32)
                              (PP-REF14659 ':INT32) (DMIN-REF14660 ':FLOAT)
                              (SIGMA-REF14661 ':FLOAT) (DESIG-REF14662 ':FLOAT)
                              (QMAX-REF14663 ':FLOAT) (NFAIL-REF14664 ':INT32)
                              (ITER-REF14665 ':INT32) (NDIV-REF14666 ':INT32)
                              (IEEE-REF14667 ':INT32) (TTYPE-REF14668 ':INT32)
                              (DMIN1-REF14669 ':FLOAT) (DMIN2-REF14670 ':FLOAT)
                              (DN-REF14671 ':FLOAT) (DN1-REF14672 ':FLOAT)
                              (DN2-REF14673 ':FLOAT) (G-REF14674 ':FLOAT)
                              (TAU-REF14675 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF14656 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF14657 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF14659 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF14660 :FLOAT) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF14661 :FLOAT) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF DESIG-REF14662 :FLOAT) DESIG)
    (COMMON-LISP:SETF (CFFI:MEM-REF QMAX-REF14663 :FLOAT) QMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF NFAIL-REF14664 :INT32) NFAIL)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF14665 :INT32) ITER)
    (COMMON-LISP:SETF (CFFI:MEM-REF NDIV-REF14666 :INT32) NDIV)
    (COMMON-LISP:SETF (CFFI:MEM-REF IEEE-REF14667 :INT32) IEEE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF14668 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF14669 :FLOAT) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF14670 :FLOAT) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF14671 :FLOAT) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN1-REF14672 :FLOAT) DN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN2-REF14673 :FLOAT) DN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14674 :FLOAT) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14675 :FLOAT) TAU)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14658 Z))
      (%%SLASQ3 I0-REF14656 N0-REF14657 Z-REF14658 PP-REF14659 DMIN-REF14660
       SIGMA-REF14661 DESIG-REF14662 QMAX-REF14663 NFAIL-REF14664 ITER-REF14665
       NDIV-REF14666 IEEE-REF14667 TTYPE-REF14668 DMIN1-REF14669 DMIN2-REF14670
       DN-REF14671 DN1-REF14672 DN2-REF14673 G-REF14674 TAU-REF14675))))

(CFFI:DEFCFUN ("slasq4_" %%SLASQ4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (I0 :POINTER)
  (N0 :POINTER)
  (Z :POINTER)
  (PP :POINTER)
  (N0IN :POINTER)
  (DMIN :POINTER)
  (DMIN1 :POINTER)
  (DMIN2 :POINTER)
  (DN :POINTER)
  (DN1 :POINTER)
  (DN2 :POINTER)
  (TAU :POINTER)
  (TTYPE :POINTER)
  (G :POINTER))

(COMMON-LISP:DEFUN %SLASQ4
                   (I0 N0 Z PP N0IN DMIN DMIN1 DMIN2 DN DN1 DN2 TAU TTYPE G)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASQ4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0IN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT G))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF14676 ':INT32) (N0-REF14677 ':INT32)
                              (PP-REF14679 ':INT32) (N0IN-REF14680 ':INT32)
                              (DMIN-REF14681 ':FLOAT) (DMIN1-REF14682 ':FLOAT)
                              (DMIN2-REF14683 ':FLOAT) (DN-REF14684 ':FLOAT)
                              (DN1-REF14685 ':FLOAT) (DN2-REF14686 ':FLOAT)
                              (TAU-REF14687 ':FLOAT) (TTYPE-REF14688 ':INT32)
                              (G-REF14689 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF14676 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF14677 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF14679 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0IN-REF14680 :INT32) N0IN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF14681 :FLOAT) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF14682 :FLOAT) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF14683 :FLOAT) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF14684 :FLOAT) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN1-REF14685 :FLOAT) DN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN2-REF14686 :FLOAT) DN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14687 :FLOAT) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF14688 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14689 :FLOAT) G)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14678 Z))
      (%%SLASQ4 I0-REF14676 N0-REF14677 Z-REF14678 PP-REF14679 N0IN-REF14680
       DMIN-REF14681 DMIN1-REF14682 DMIN2-REF14683 DN-REF14684 DN1-REF14685
       DN2-REF14686 TAU-REF14687 TTYPE-REF14688 G-REF14689))))

(CFFI:DEFCFUN ("slasq5_" %%SLASQ5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (I0 :POINTER)
  (N0 :POINTER)
  (Z :POINTER)
  (PP :POINTER)
  (TAU :POINTER)
  (SIGMA :POINTER)
  (DMIN :POINTER)
  (DMIN1 :POINTER)
  (DMIN2 :POINTER)
  (DN :POINTER)
  (DNM1 :POINTER)
  (DNM2 :POINTER)
  (IEEE :POINTER)
  (EPS :POINTER))

(COMMON-LISP:DEFUN %SLASQ5
                   (I0 N0 Z PP TAU SIGMA DMIN DMIN1 DMIN2 DN DNM1 DNM2 IEEE
                    EPS)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASQ5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DNM1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DNM2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IEEE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF14690 ':INT32) (N0-REF14691 ':INT32)
                              (PP-REF14693 ':INT32) (TAU-REF14694 ':FLOAT)
                              (SIGMA-REF14695 ':FLOAT) (DMIN-REF14696 ':FLOAT)
                              (DMIN1-REF14697 ':FLOAT) (DMIN2-REF14698 ':FLOAT)
                              (DN-REF14699 ':FLOAT) (DNM1-REF14700 ':FLOAT)
                              (DNM2-REF14701 ':FLOAT) (IEEE-REF14702 ':INT32)
                              (EPS-REF14703 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF14690 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF14691 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF14693 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14694 :FLOAT) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF14695 :FLOAT) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF14696 :FLOAT) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF14697 :FLOAT) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF14698 :FLOAT) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF14699 :FLOAT) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM1-REF14700 :FLOAT) DNM1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM2-REF14701 :FLOAT) DNM2)
    (COMMON-LISP:SETF (CFFI:MEM-REF IEEE-REF14702 :INT32) IEEE)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF14703 :FLOAT) EPS)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14692 Z))
      (%%SLASQ5 I0-REF14690 N0-REF14691 Z-REF14692 PP-REF14693 TAU-REF14694
       SIGMA-REF14695 DMIN-REF14696 DMIN1-REF14697 DMIN2-REF14698 DN-REF14699
       DNM1-REF14700 DNM2-REF14701 IEEE-REF14702 EPS-REF14703))))

(CFFI:DEFCFUN ("slasq6_" %%SLASQ6 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (I0 :POINTER)
  (N0 :POINTER)
  (Z :POINTER)
  (PP :POINTER)
  (DMIN :POINTER)
  (DMIN1 :POINTER)
  (DMIN2 :POINTER)
  (DN :POINTER)
  (DNM1 :POINTER)
  (DNM2 :POINTER))

(COMMON-LISP:DEFUN %SLASQ6 (I0 N0 Z PP DMIN DMIN1 DMIN2 DN DNM1 DNM2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASQ6)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DNM1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DNM2))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF14704 ':INT32) (N0-REF14705 ':INT32)
                              (PP-REF14707 ':INT32) (DMIN-REF14708 ':FLOAT)
                              (DMIN1-REF14709 ':FLOAT) (DMIN2-REF14710 ':FLOAT)
                              (DN-REF14711 ':FLOAT) (DNM1-REF14712 ':FLOAT)
                              (DNM2-REF14713 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF14704 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF14705 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF14707 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF14708 :FLOAT) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF14709 :FLOAT) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF14710 :FLOAT) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF14711 :FLOAT) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM1-REF14712 :FLOAT) DNM1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM2-REF14713 :FLOAT) DNM2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14706 Z))
      (%%SLASQ6 I0-REF14704 N0-REF14705 Z-REF14706 PP-REF14707 DMIN-REF14708
       DMIN1-REF14709 DMIN2-REF14710 DN-REF14711 DNM1-REF14712 DNM2-REF14713))))

(CFFI:DEFCFUN ("slasr_" %%SLASR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (PIVOT :STRING)
  (DIRECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (C :POINTER)
  (S :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %SLASR (SIDE PIVOT DIRECT M N C S A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING PIVOT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14717 ':INT32) (N-REF14718 ':INT32)
                              (LDA-REF14722 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14717 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14718 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14722 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((C-REF14719 C) (S-REF14720 S)
                                            (A-REF14721 A))
      (%%SLASR SIDE PIVOT DIRECT M-REF14717 N-REF14718 C-REF14719 S-REF14720
       A-REF14721 LDA-REF14722))))

(CFFI:DEFCFUN ("slasrt_" %%SLASRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ID :STRING)
  (N :POINTER)
  (D :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASRT (ID N D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASRT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING ID)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14724 ':INT32) (INFO-REF14726 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14724 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14726 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14725 D))
      (%%SLASRT ID N-REF14724 D-REF14725 INFO-REF14726))))

(CFFI:DEFCFUN ("slassq_" %%SLASSQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (SCALE :POINTER)
  (SUMSQ :POINTER))

(COMMON-LISP:DEFUN %SLASSQ (N X INCX SCALE SUMSQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASSQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SUMSQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14727 ':INT32) (INCX-REF14729 ':INT32)
                              (SCALE-REF14730 ':FLOAT) (SUMSQ-REF14731 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14727 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14729 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14730 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF SUMSQ-REF14731 :FLOAT) SUMSQ)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14728 X))
      (%%SLASSQ N-REF14727 X-REF14728 INCX-REF14729 SCALE-REF14730
       SUMSQ-REF14731))))

(CFFI:DEFCFUN ("slasv2_" %%SLASV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (F :POINTER)
  (G :POINTER)
  (H :POINTER)
  (SSMIN :POINTER)
  (SSMAX :POINTER)
  (SNR :POINTER)
  (CSR :POINTER)
  (SNL :POINTER)
  (CSL :POINTER))

(COMMON-LISP:DEFUN %SLASV2 (F G H SSMIN SSMAX SNR CSR SNL CSL)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASV2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT F)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT G)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT H)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SSMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SSMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNR)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSR)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSL))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF14732 ':FLOAT) (G-REF14733 ':FLOAT)
                              (H-REF14734 ':FLOAT) (SSMIN-REF14735 ':FLOAT)
                              (SSMAX-REF14736 ':FLOAT) (SNR-REF14737 ':FLOAT)
                              (CSR-REF14738 ':FLOAT) (SNL-REF14739 ':FLOAT)
                              (CSL-REF14740 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF F-REF14732 :FLOAT) F)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14733 :FLOAT) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF H-REF14734 :FLOAT) H)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF14735 :FLOAT) SSMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMAX-REF14736 :FLOAT) SSMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNR-REF14737 :FLOAT) SNR)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSR-REF14738 :FLOAT) CSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNL-REF14739 :FLOAT) SNL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSL-REF14740 :FLOAT) CSL)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLASV2 F-REF14732 G-REF14733 H-REF14734 SSMIN-REF14735 SSMAX-REF14736
       SNR-REF14737 CSR-REF14738 SNL-REF14739 CSL-REF14740))))

(CFFI:DEFCFUN ("slaswlq_" %%SLASWLQ :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASWLQ (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASWLQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14741 ':INT32) (N-REF14742 ':INT32)
                              (MB-REF14743 ':INT32) (NB-REF14744 ':INT32)
                              (LDA-REF14746 ':INT32) (LDT-REF14748 ':INT32)
                              (LWORK-REF14750 ':INT32) (INFO-REF14751 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14741 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14742 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF14743 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14744 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14746 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14748 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14750 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14751 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14745 A) (T-REF14747 T)
                                            (WORK-REF14749 WORK))
      (%%SLASWLQ M-REF14741 N-REF14742 MB-REF14743 NB-REF14744 A-REF14745
       LDA-REF14746 T-REF14747 LDT-REF14748 WORK-REF14749 LWORK-REF14750
       INFO-REF14751))))

(CFFI:DEFCFUN ("slaswp_" %%SLASWP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (K1 :POINTER)
  (K2 :POINTER)
  (IPIV :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %SLASWP (N A LDA K1 K2 IPIV INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASWP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14752 ':INT32) (LDA-REF14754 ':INT32)
                              (K1-REF14755 ':INT32) (K2-REF14756 ':INT32)
                              (INCX-REF14758 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14752 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14754 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF K1-REF14755 :INT32) K1)
    (COMMON-LISP:SETF (CFFI:MEM-REF K2-REF14756 :INT32) K2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14758 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14753 A) (IPIV-REF14757 IPIV))
      (%%SLASWP N-REF14752 A-REF14753 LDA-REF14754 K1-REF14755 K2-REF14756
       IPIV-REF14757 INCX-REF14758))))

(CFFI:DEFCFUN ("slasy2_" %%SLASY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (LTRANL :POINTER)
  (LTRANR :POINTER)
  (ISGN :POINTER)
  (N1 :POINTER)
  (N2 :POINTER)
  (TL :POINTER)
  (LDTL :POINTER)
  (TR :POINTER)
  (LDTR :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SCALE :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (XNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASY2
                   (LTRANL LTRANR ISGN N1 N2 TL LDTL TR LDTR B LDB SCALE X LDX
                    XNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASY2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRANL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRANR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISGN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDTL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT XNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((LTRANL-REF14759 ':INT32)
                              (LTRANR-REF14760 ':INT32) (ISGN-REF14761 ':INT32)
                              (N1-REF14762 ':INT32) (N2-REF14763 ':INT32)
                              (LDTL-REF14765 ':INT32) (LDTR-REF14767 ':INT32)
                              (LDB-REF14769 ':INT32) (SCALE-REF14770 ':FLOAT)
                              (LDX-REF14772 ':INT32) (XNORM-REF14773 ':FLOAT)
                              (INFO-REF14774 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRANL-REF14759 :INT32) LTRANL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRANR-REF14760 :INT32) LTRANR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF14761 :INT32) ISGN)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF14762 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF14763 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDTL-REF14765 :INT32) LDTL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDTR-REF14767 :INT32) LDTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14769 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14770 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF14772 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF XNORM-REF14773 :FLOAT) XNORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14774 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((TL-REF14764 TL) (TR-REF14766 TR)
                                            (B-REF14768 B) (X-REF14771 X))
      (%%SLASY2 LTRANL-REF14759 LTRANR-REF14760 ISGN-REF14761 N1-REF14762
       N2-REF14763 TL-REF14764 LDTL-REF14765 TR-REF14766 LDTR-REF14767
       B-REF14768 LDB-REF14769 SCALE-REF14770 X-REF14771 LDX-REF14772
       XNORM-REF14773 INFO-REF14774))))

(CFFI:DEFCFUN ("slasyf_" %%SLASYF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASYF (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASYF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14776 ':INT32) (NB-REF14777 ':INT32)
                              (KB-REF14778 ':INT32) (LDA-REF14780 ':INT32)
                              (LDW-REF14783 ':INT32) (INFO-REF14784 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14776 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14777 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF14778 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14780 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF14783 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14784 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14779 A) (IPIV-REF14781 IPIV)
                                            (W-REF14782 W))
      (%%SLASYF UPLO N-REF14776 NB-REF14777 KB-REF14778 A-REF14779 LDA-REF14780
       IPIV-REF14781 W-REF14782 LDW-REF14783 INFO-REF14784))))

(CFFI:DEFCFUN ("slasyf_aa_" %%SLASYF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (J1 :POINTER)
  (M :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLASYF_AA (UPLO J1 M NB A LDA IPIV H LDH WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASYF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF14786 ':INT32) (M-REF14787 ':INT32)
                              (NB-REF14788 ':INT32) (LDA-REF14790 ':INT32)
                              (LDH-REF14793 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF14786 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14787 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14788 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14790 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF14793 :INT32) LDH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14789 A) (IPIV-REF14791 IPIV)
                                            (H-REF14792 H) (WORK-REF14794 WORK))
      (%%SLASYF_AA UPLO J1-REF14786 M-REF14787 NB-REF14788 A-REF14789
       LDA-REF14790 IPIV-REF14791 H-REF14792 LDH-REF14793 WORK-REF14794))))

(CFFI:DEFCFUN ("slasyf_rk_" %%SLASYF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASYF_RK (UPLO N NB KB A LDA E IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASYF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14796 ':INT32) (NB-REF14797 ':INT32)
                              (KB-REF14798 ':INT32) (LDA-REF14800 ':INT32)
                              (LDW-REF14804 ':INT32) (INFO-REF14805 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14796 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14797 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF14798 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14800 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF14804 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14805 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14799 A) (E-REF14801 E)
                                            (IPIV-REF14802 IPIV) (W-REF14803 W))
      (%%SLASYF_RK UPLO N-REF14796 NB-REF14797 KB-REF14798 A-REF14799
       LDA-REF14800 E-REF14801 IPIV-REF14802 W-REF14803 LDW-REF14804
       INFO-REF14805))))

(CFFI:DEFCFUN ("slasyf_rook_" %%SLASYF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASYF_ROOK (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASYF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14807 ':INT32) (NB-REF14808 ':INT32)
                              (KB-REF14809 ':INT32) (LDA-REF14811 ':INT32)
                              (LDW-REF14814 ':INT32) (INFO-REF14815 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14807 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14808 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF14809 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14811 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF14814 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14815 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14810 A) (IPIV-REF14812 IPIV)
                                            (W-REF14813 W))
      (%%SLASYF_ROOK UPLO N-REF14807 NB-REF14808 KB-REF14809 A-REF14810
       LDA-REF14811 IPIV-REF14812 W-REF14813 LDW-REF14814 INFO-REF14815))))

(CFFI:DEFCFUN ("slatbs_" %%SLATBS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLATBS
                   (UPLO TRANS DIAG NORMIN N KD AB LDAB X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLATBS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14820 ':INT32) (KD-REF14821 ':INT32)
                              (LDAB-REF14823 ':INT32) (SCALE-REF14825 ':FLOAT)
                              (INFO-REF14827 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14820 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF14821 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF14823 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14825 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14827 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF14822 AB) (X-REF14824 X)
                                            (CNORM-REF14826 CNORM))
      (%%SLATBS UPLO TRANS DIAG NORMIN N-REF14820 KD-REF14821 AB-REF14822
       LDAB-REF14823 X-REF14824 SCALE-REF14825 CNORM-REF14826 INFO-REF14827))))

(CFFI:DEFCFUN ("slatdf_" %%SLATDF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (IJOB :POINTER)
  (N :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (RHS :POINTER)
  (RDSUM :POINTER)
  (RDSCAL :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER))

(COMMON-LISP:DEFUN %SLATDF (IJOB N Z LDZ RHS RDSUM RDSCAL IPIV JPIV)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLATDF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RHS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSUM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSCAL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF14828 ':INT32) (N-REF14829 ':INT32)
                              (LDZ-REF14831 ':INT32) (RDSUM-REF14833 ':FLOAT)
                              (RDSCAL-REF14834 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF14828 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14829 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14831 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF14833 :FLOAT) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF14834 :FLOAT) RDSCAL)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14830 Z) (RHS-REF14832 RHS)
                                            (IPIV-REF14835 IPIV)
                                            (JPIV-REF14836 JPIV))
      (%%SLATDF IJOB-REF14828 N-REF14829 Z-REF14830 LDZ-REF14831 RHS-REF14832
       RDSUM-REF14833 RDSCAL-REF14834 IPIV-REF14835 JPIV-REF14836))))

(CFFI:DEFCFUN ("slatps_" %%SLATPS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLATPS (UPLO TRANS DIAG NORMIN N AP X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLATPS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14841 ':INT32) (SCALE-REF14844 ':FLOAT)
                              (INFO-REF14846 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14841 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14844 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14846 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14842 AP) (X-REF14843 X)
                                            (CNORM-REF14845 CNORM))
      (%%SLATPS UPLO TRANS DIAG NORMIN N-REF14841 AP-REF14842 X-REF14843
       SCALE-REF14844 CNORM-REF14845 INFO-REF14846))))

(CFFI:DEFCFUN ("slatrd_" %%SLATRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (W :POINTER)
  (LDW :POINTER))

(COMMON-LISP:DEFUN %SLATRD (UPLO N NB A LDA E TAU W LDW)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLATRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14848 ':INT32) (NB-REF14849 ':INT32)
                              (LDA-REF14851 ':INT32) (LDW-REF14855 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14848 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14849 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14851 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF14855 :INT32) LDW)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14850 A) (E-REF14852 E)
                                            (TAU-REF14853 TAU) (W-REF14854 W))
      (%%SLATRD UPLO N-REF14848 NB-REF14849 A-REF14850 LDA-REF14851 E-REF14852
       TAU-REF14853 W-REF14854 LDW-REF14855))))

(CFFI:DEFCFUN ("slatrs_" %%SLATRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLATRS (UPLO TRANS DIAG NORMIN N A LDA X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLATRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14860 ':INT32) (LDA-REF14862 ':INT32)
                              (SCALE-REF14864 ':FLOAT) (INFO-REF14866 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14860 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14862 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14864 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14866 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14861 A) (X-REF14863 X)
                                            (CNORM-REF14865 CNORM))
      (%%SLATRS UPLO TRANS DIAG NORMIN N-REF14860 A-REF14861 LDA-REF14862
       X-REF14863 SCALE-REF14864 CNORM-REF14865 INFO-REF14866))))

(CFFI:DEFCFUN ("slatrz_" %%SLATRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLATRZ (M N L A LDA TAU WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLATRZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14867 ':INT32) (N-REF14868 ':INT32)
                              (L-REF14869 ':INT32) (LDA-REF14871 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14867 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14868 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF14869 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14871 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14870 A) (TAU-REF14872 TAU)
                                            (WORK-REF14873 WORK))
      (%%SLATRZ M-REF14867 N-REF14868 L-REF14869 A-REF14870 LDA-REF14871
       TAU-REF14872 WORK-REF14873))))

(CFFI:DEFCFUN ("slatsqr_" %%SLATSQR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLATSQR (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLATSQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14874 ':INT32) (N-REF14875 ':INT32)
                              (MB-REF14876 ':INT32) (NB-REF14877 ':INT32)
                              (LDA-REF14879 ':INT32) (LDT-REF14881 ':INT32)
                              (LWORK-REF14883 ':INT32) (INFO-REF14884 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14874 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14875 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF14876 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14877 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14879 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14881 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14883 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14884 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14878 A) (T-REF14880 T)
                                            (WORK-REF14882 WORK))
      (%%SLATSQR M-REF14874 N-REF14875 MB-REF14876 NB-REF14877 A-REF14878
       LDA-REF14879 T-REF14880 LDT-REF14881 WORK-REF14882 LWORK-REF14883
       INFO-REF14884))))

(CFFI:DEFCFUN ("slauu2_" %%SLAUU2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAUU2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAUU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14886 ':INT32) (LDA-REF14888 ':INT32)
                              (INFO-REF14889 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14886 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14888 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14889 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14887 A))
      (%%SLAUU2 UPLO N-REF14886 A-REF14887 LDA-REF14888 INFO-REF14889))))

(CFFI:DEFCFUN ("slauum_" %%SLAUUM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAUUM (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAUUM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14891 ':INT32) (LDA-REF14893 ':INT32)
                              (INFO-REF14894 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14891 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14893 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14894 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14892 A))
      (%%SLAUUM UPLO N-REF14891 A-REF14892 LDA-REF14893 INFO-REF14894))))

(CFFI:DEFCFUN ("sopgtr_" %%SOPGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (TAU :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SOPGTR (UPLO N AP TAU Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SOPGTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14896 ':INT32) (LDQ-REF14900 ':INT32)
                              (INFO-REF14902 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14896 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF14900 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14902 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14897 AP) (TAU-REF14898 TAU)
                                            (Q-REF14899 Q) (WORK-REF14901 WORK))
      (%%SOPGTR UPLO N-REF14896 AP-REF14897 TAU-REF14898 Q-REF14899
       LDQ-REF14900 WORK-REF14901 INFO-REF14902))))

(CFFI:DEFCFUN ("sopmtr_" %%SOPMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (AP :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SOPMTR (SIDE UPLO TRANS M N AP TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SOPMTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14906 ':INT32) (N-REF14907 ':INT32)
                              (LDC-REF14911 ':INT32) (INFO-REF14913 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14906 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14907 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14911 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14913 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14908 AP) (TAU-REF14909 TAU)
                                            (C-REF14910 C) (WORK-REF14912 WORK))
      (%%SOPMTR SIDE UPLO TRANS M-REF14906 N-REF14907 AP-REF14908 TAU-REF14909
       C-REF14910 LDC-REF14911 WORK-REF14912 INFO-REF14913))))

(CFFI:DEFCFUN ("sorbdb_" %%SORBDB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (SIGNS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X12 :POINTER)
  (LDX12 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (X22 :POINTER)
  (LDX22 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (TAUQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORBDB
                   (TRANS SIGNS M P Q X11 LDX11 X12 LDX12 X21 LDX21 X22 LDX22
                    THETA PHI TAUP1 TAUP2 TAUQ1 TAUQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORBDB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X12)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14916 ':INT32) (P-REF14917 ':INT32)
                              (Q-REF14918 ':INT32) (LDX11-REF14920 ':INT32)
                              (LDX12-REF14922 ':INT32) (LDX21-REF14924 ':INT32)
                              (LDX22-REF14926 ':INT32) (LWORK-REF14934 ':INT32)
                              (INFO-REF14935 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14916 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF14917 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF14918 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF14920 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF14922 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF14924 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF14926 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14934 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14935 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF14919 X11)
                                            (X12-REF14921 X12)
                                            (X21-REF14923 X21)
                                            (X22-REF14925 X22)
                                            (THETA-REF14927 THETA)
                                            (PHI-REF14928 PHI)
                                            (TAUP1-REF14929 TAUP1)
                                            (TAUP2-REF14930 TAUP2)
                                            (TAUQ1-REF14931 TAUQ1)
                                            (TAUQ2-REF14932 TAUQ2)
                                            (WORK-REF14933 WORK))
      (%%SORBDB TRANS SIGNS M-REF14916 P-REF14917 Q-REF14918 X11-REF14919
       LDX11-REF14920 X12-REF14921 LDX12-REF14922 X21-REF14923 LDX21-REF14924
       X22-REF14925 LDX22-REF14926 THETA-REF14927 PHI-REF14928 TAUP1-REF14929
       TAUP2-REF14930 TAUQ1-REF14931 TAUQ2-REF14932 WORK-REF14933
       LWORK-REF14934 INFO-REF14935))))

(CFFI:DEFCFUN ("sorbdb1_" %%SORBDB1 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORBDB1
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORBDB1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14936 ':INT32) (P-REF14937 ':INT32)
                              (Q-REF14938 ':INT32) (LDX11-REF14940 ':INT32)
                              (LDX21-REF14942 ':INT32) (LWORK-REF14949 ':INT32)
                              (INFO-REF14950 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14936 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF14937 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF14938 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF14940 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF14942 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14949 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14950 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF14939 X11)
                                            (X21-REF14941 X21)
                                            (THETA-REF14943 THETA)
                                            (PHI-REF14944 PHI)
                                            (TAUP1-REF14945 TAUP1)
                                            (TAUP2-REF14946 TAUP2)
                                            (TAUQ1-REF14947 TAUQ1)
                                            (WORK-REF14948 WORK))
      (%%SORBDB1 M-REF14936 P-REF14937 Q-REF14938 X11-REF14939 LDX11-REF14940
       X21-REF14941 LDX21-REF14942 THETA-REF14943 PHI-REF14944 TAUP1-REF14945
       TAUP2-REF14946 TAUQ1-REF14947 WORK-REF14948 LWORK-REF14949
       INFO-REF14950))))

(CFFI:DEFCFUN ("sorbdb2_" %%SORBDB2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORBDB2
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORBDB2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14951 ':INT32) (P-REF14952 ':INT32)
                              (Q-REF14953 ':INT32) (LDX11-REF14955 ':INT32)
                              (LDX21-REF14957 ':INT32) (LWORK-REF14964 ':INT32)
                              (INFO-REF14965 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14951 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF14952 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF14953 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF14955 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF14957 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14964 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14965 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF14954 X11)
                                            (X21-REF14956 X21)
                                            (THETA-REF14958 THETA)
                                            (PHI-REF14959 PHI)
                                            (TAUP1-REF14960 TAUP1)
                                            (TAUP2-REF14961 TAUP2)
                                            (TAUQ1-REF14962 TAUQ1)
                                            (WORK-REF14963 WORK))
      (%%SORBDB2 M-REF14951 P-REF14952 Q-REF14953 X11-REF14954 LDX11-REF14955
       X21-REF14956 LDX21-REF14957 THETA-REF14958 PHI-REF14959 TAUP1-REF14960
       TAUP2-REF14961 TAUQ1-REF14962 WORK-REF14963 LWORK-REF14964
       INFO-REF14965))))

(CFFI:DEFCFUN ("sorbdb3_" %%SORBDB3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORBDB3
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORBDB3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14966 ':INT32) (P-REF14967 ':INT32)
                              (Q-REF14968 ':INT32) (LDX11-REF14970 ':INT32)
                              (LDX21-REF14972 ':INT32) (LWORK-REF14979 ':INT32)
                              (INFO-REF14980 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14966 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF14967 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF14968 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF14970 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF14972 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14979 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14980 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF14969 X11)
                                            (X21-REF14971 X21)
                                            (THETA-REF14973 THETA)
                                            (PHI-REF14974 PHI)
                                            (TAUP1-REF14975 TAUP1)
                                            (TAUP2-REF14976 TAUP2)
                                            (TAUQ1-REF14977 TAUQ1)
                                            (WORK-REF14978 WORK))
      (%%SORBDB3 M-REF14966 P-REF14967 Q-REF14968 X11-REF14969 LDX11-REF14970
       X21-REF14971 LDX21-REF14972 THETA-REF14973 PHI-REF14974 TAUP1-REF14975
       TAUP2-REF14976 TAUQ1-REF14977 WORK-REF14978 LWORK-REF14979
       INFO-REF14980))))

(CFFI:DEFCFUN ("sorbdb4_" %%SORBDB4 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (PHANTOM :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORBDB4
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1
                    PHANTOM WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORBDB4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHANTOM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14981 ':INT32) (P-REF14982 ':INT32)
                              (Q-REF14983 ':INT32) (LDX11-REF14985 ':INT32)
                              (LDX21-REF14987 ':INT32) (LWORK-REF14995 ':INT32)
                              (INFO-REF14996 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14981 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF14982 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF14983 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF14985 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF14987 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14995 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14996 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF14984 X11)
                                            (X21-REF14986 X21)
                                            (THETA-REF14988 THETA)
                                            (PHI-REF14989 PHI)
                                            (TAUP1-REF14990 TAUP1)
                                            (TAUP2-REF14991 TAUP2)
                                            (TAUQ1-REF14992 TAUQ1)
                                            (PHANTOM-REF14993 PHANTOM)
                                            (WORK-REF14994 WORK))
      (%%SORBDB4 M-REF14981 P-REF14982 Q-REF14983 X11-REF14984 LDX11-REF14985
       X21-REF14986 LDX21-REF14987 THETA-REF14988 PHI-REF14989 TAUP1-REF14990
       TAUP2-REF14991 TAUQ1-REF14992 PHANTOM-REF14993 WORK-REF14994
       LWORK-REF14995 INFO-REF14996))))

(CFFI:DEFCFUN ("sorbdb5_" %%SORBDB5 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M1 :POINTER)
  (M2 :POINTER)
  (N :POINTER)
  (X1 :POINTER)
  (INCX1 :POINTER)
  (X2 :POINTER)
  (INCX2 :POINTER)
  (Q1 :POINTER)
  (LDQ1 :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORBDB5
                   (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORBDB5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF14997 ':INT32) (M2-REF14998 ':INT32)
                              (N-REF14999 ':INT32) (INCX1-REF15001 ':INT32)
                              (INCX2-REF15003 ':INT32) (LDQ1-REF15005 ':INT32)
                              (LDQ2-REF15007 ':INT32) (LWORK-REF15009 ':INT32)
                              (INFO-REF15010 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF14997 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF14998 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14999 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF15001 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF15003 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF15005 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF15007 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15009 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15010 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF15000 X1) (X2-REF15002 X2)
                                            (Q1-REF15004 Q1) (Q2-REF15006 Q2)
                                            (WORK-REF15008 WORK))
      (%%SORBDB5 M1-REF14997 M2-REF14998 N-REF14999 X1-REF15000 INCX1-REF15001
       X2-REF15002 INCX2-REF15003 Q1-REF15004 LDQ1-REF15005 Q2-REF15006
       LDQ2-REF15007 WORK-REF15008 LWORK-REF15009 INFO-REF15010))))

(CFFI:DEFCFUN ("sorbdb6_" %%SORBDB6 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M1 :POINTER)
  (M2 :POINTER)
  (N :POINTER)
  (X1 :POINTER)
  (INCX1 :POINTER)
  (X2 :POINTER)
  (INCX2 :POINTER)
  (Q1 :POINTER)
  (LDQ1 :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORBDB6
                   (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORBDB6)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF15011 ':INT32) (M2-REF15012 ':INT32)
                              (N-REF15013 ':INT32) (INCX1-REF15015 ':INT32)
                              (INCX2-REF15017 ':INT32) (LDQ1-REF15019 ':INT32)
                              (LDQ2-REF15021 ':INT32) (LWORK-REF15023 ':INT32)
                              (INFO-REF15024 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF15011 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF15012 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15013 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF15015 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF15017 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF15019 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF15021 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15023 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15024 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF15014 X1) (X2-REF15016 X2)
                                            (Q1-REF15018 Q1) (Q2-REF15020 Q2)
                                            (WORK-REF15022 WORK))
      (%%SORBDB6 M1-REF15011 M2-REF15012 N-REF15013 X1-REF15014 INCX1-REF15015
       X2-REF15016 INCX2-REF15017 Q1-REF15018 LDQ1-REF15019 Q2-REF15020
       LDQ2-REF15021 WORK-REF15022 LWORK-REF15023 INFO-REF15024))))

(CFFI:DEFCFUN ("sorcsd_" %%SORCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (JOBV2T :STRING)
  (TRANS :STRING)
  (SIGNS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X12 :POINTER)
  (LDX12 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (X22 :POINTER)
  (LDX22 :POINTER)
  (THETA :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (V2T :POINTER)
  (LDV2T :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORCSD
                   (JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M P Q X11 LDX11 X12
                    LDX12 X21 LDX21 X22 LDX22 THETA U1 LDU1 U2 LDU2 V1T LDV1T
                    V2T LDV2T WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORCSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X12)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        V2T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15031 ':INT32) (P-REF15032 ':INT32)
                              (Q-REF15033 ':INT32) (LDX11-REF15035 ':INT32)
                              (LDX12-REF15037 ':INT32) (LDX21-REF15039 ':INT32)
                              (LDX22-REF15041 ':INT32) (LDU1-REF15044 ':INT32)
                              (LDU2-REF15046 ':INT32) (LDV1T-REF15048 ':INT32)
                              (LDV2T-REF15050 ':INT32) (LWORK-REF15052 ':INT32)
                              (INFO-REF15054 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15031 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF15032 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF15033 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF15035 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF15037 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF15039 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF15041 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF15044 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF15046 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF15048 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF15050 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15052 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15054 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF15034 X11)
                                            (X12-REF15036 X12)
                                            (X21-REF15038 X21)
                                            (X22-REF15040 X22)
                                            (THETA-REF15042 THETA)
                                            (U1-REF15043 U1) (U2-REF15045 U2)
                                            (V1T-REF15047 V1T)
                                            (V2T-REF15049 V2T)
                                            (WORK-REF15051 WORK)
                                            (IWORK-REF15053 IWORK))
      (%%SORCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF15031 P-REF15032
       Q-REF15033 X11-REF15034 LDX11-REF15035 X12-REF15036 LDX12-REF15037
       X21-REF15038 LDX21-REF15039 X22-REF15040 LDX22-REF15041 THETA-REF15042
       U1-REF15043 LDU1-REF15044 U2-REF15045 LDU2-REF15046 V1T-REF15047
       LDV1T-REF15048 V2T-REF15049 LDV2T-REF15050 WORK-REF15051 LWORK-REF15052
       IWORK-REF15053 INFO-REF15054))))

(CFFI:DEFCFUN ("sorcsd2by1_" %%SORCSD2BY1 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORCSD2BY1
                   (JOBU1 JOBU2 JOBV1T M P Q X11 LDX11 X21 LDX21 THETA U1 LDU1
                    U2 LDU2 V1T LDV1T WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORCSD2BY1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15058 ':INT32) (P-REF15059 ':INT32)
                              (Q-REF15060 ':INT32) (LDX11-REF15062 ':INT32)
                              (LDX21-REF15064 ':INT32) (LDU1-REF15067 ':INT32)
                              (LDU2-REF15069 ':INT32) (LDV1T-REF15071 ':INT32)
                              (LWORK-REF15073 ':INT32) (INFO-REF15075 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15058 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF15059 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF15060 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF15062 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF15064 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF15067 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF15069 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF15071 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15073 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15075 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF15061 X11)
                                            (X21-REF15063 X21)
                                            (THETA-REF15065 THETA)
                                            (U1-REF15066 U1) (U2-REF15068 U2)
                                            (V1T-REF15070 V1T)
                                            (WORK-REF15072 WORK)
                                            (IWORK-REF15074 IWORK))
      (%%SORCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF15058 P-REF15059 Q-REF15060
       X11-REF15061 LDX11-REF15062 X21-REF15063 LDX21-REF15064 THETA-REF15065
       U1-REF15066 LDU1-REF15067 U2-REF15068 LDU2-REF15069 V1T-REF15070
       LDV1T-REF15071 WORK-REF15072 LWORK-REF15073 IWORK-REF15074
       INFO-REF15075))))

(CFFI:DEFCFUN ("sorg2l_" %%SORG2L :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORG2L (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORG2L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15076 ':INT32) (N-REF15077 ':INT32)
                              (K-REF15078 ':INT32) (LDA-REF15080 ':INT32)
                              (INFO-REF15083 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15076 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15077 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15078 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15080 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15083 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15079 A) (TAU-REF15081 TAU)
                                            (WORK-REF15082 WORK))
      (%%SORG2L M-REF15076 N-REF15077 K-REF15078 A-REF15079 LDA-REF15080
       TAU-REF15081 WORK-REF15082 INFO-REF15083))))

(CFFI:DEFCFUN ("sorg2r_" %%SORG2R :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORG2R (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORG2R)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15084 ':INT32) (N-REF15085 ':INT32)
                              (K-REF15086 ':INT32) (LDA-REF15088 ':INT32)
                              (INFO-REF15091 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15084 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15085 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15086 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15088 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15091 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15087 A) (TAU-REF15089 TAU)
                                            (WORK-REF15090 WORK))
      (%%SORG2R M-REF15084 N-REF15085 K-REF15086 A-REF15087 LDA-REF15088
       TAU-REF15089 WORK-REF15090 INFO-REF15091))))

(CFFI:DEFCFUN ("sorgbr_" %%SORGBR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORGBR (VECT M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15093 ':INT32) (N-REF15094 ':INT32)
                              (K-REF15095 ':INT32) (LDA-REF15097 ':INT32)
                              (LWORK-REF15100 ':INT32) (INFO-REF15101 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15093 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15094 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15095 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15097 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15100 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15101 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15096 A) (TAU-REF15098 TAU)
                                            (WORK-REF15099 WORK))
      (%%SORGBR VECT M-REF15093 N-REF15094 K-REF15095 A-REF15096 LDA-REF15097
       TAU-REF15098 WORK-REF15099 LWORK-REF15100 INFO-REF15101))))

(CFFI:DEFCFUN ("sorghr_" %%SORGHR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORGHR (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGHR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15102 ':INT32) (ILO-REF15103 ':INT32)
                              (IHI-REF15104 ':INT32) (LDA-REF15106 ':INT32)
                              (LWORK-REF15109 ':INT32) (INFO-REF15110 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15102 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF15103 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF15104 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15106 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15109 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15110 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15105 A) (TAU-REF15107 TAU)
                                            (WORK-REF15108 WORK))
      (%%SORGHR N-REF15102 ILO-REF15103 IHI-REF15104 A-REF15105 LDA-REF15106
       TAU-REF15107 WORK-REF15108 LWORK-REF15109 INFO-REF15110))))

(CFFI:DEFCFUN ("sorgl2_" %%SORGL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORGL2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15111 ':INT32) (N-REF15112 ':INT32)
                              (K-REF15113 ':INT32) (LDA-REF15115 ':INT32)
                              (INFO-REF15118 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15111 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15112 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15113 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15115 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15118 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15114 A) (TAU-REF15116 TAU)
                                            (WORK-REF15117 WORK))
      (%%SORGL2 M-REF15111 N-REF15112 K-REF15113 A-REF15114 LDA-REF15115
       TAU-REF15116 WORK-REF15117 INFO-REF15118))))

(CFFI:DEFCFUN ("sorglq_" %%SORGLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORGLQ (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGLQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15119 ':INT32) (N-REF15120 ':INT32)
                              (K-REF15121 ':INT32) (LDA-REF15123 ':INT32)
                              (LWORK-REF15126 ':INT32) (INFO-REF15127 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15119 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15120 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15121 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15123 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15126 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15127 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15122 A) (TAU-REF15124 TAU)
                                            (WORK-REF15125 WORK))
      (%%SORGLQ M-REF15119 N-REF15120 K-REF15121 A-REF15122 LDA-REF15123
       TAU-REF15124 WORK-REF15125 LWORK-REF15126 INFO-REF15127))))

(CFFI:DEFCFUN ("sorgql_" %%SORGQL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORGQL (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGQL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15128 ':INT32) (N-REF15129 ':INT32)
                              (K-REF15130 ':INT32) (LDA-REF15132 ':INT32)
                              (LWORK-REF15135 ':INT32) (INFO-REF15136 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15128 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15129 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15130 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15132 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15135 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15136 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15131 A) (TAU-REF15133 TAU)
                                            (WORK-REF15134 WORK))
      (%%SORGQL M-REF15128 N-REF15129 K-REF15130 A-REF15131 LDA-REF15132
       TAU-REF15133 WORK-REF15134 LWORK-REF15135 INFO-REF15136))))

(CFFI:DEFCFUN ("sorgqr_" %%SORGQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORGQR (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15137 ':INT32) (N-REF15138 ':INT32)
                              (K-REF15139 ':INT32) (LDA-REF15141 ':INT32)
                              (LWORK-REF15144 ':INT32) (INFO-REF15145 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15137 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15138 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15139 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15141 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15144 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15145 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15140 A) (TAU-REF15142 TAU)
                                            (WORK-REF15143 WORK))
      (%%SORGQR M-REF15137 N-REF15138 K-REF15139 A-REF15140 LDA-REF15141
       TAU-REF15142 WORK-REF15143 LWORK-REF15144 INFO-REF15145))))

(CFFI:DEFCFUN ("sorgr2_" %%SORGR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORGR2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15146 ':INT32) (N-REF15147 ':INT32)
                              (K-REF15148 ':INT32) (LDA-REF15150 ':INT32)
                              (INFO-REF15153 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15146 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15147 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15148 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15150 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15153 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15149 A) (TAU-REF15151 TAU)
                                            (WORK-REF15152 WORK))
      (%%SORGR2 M-REF15146 N-REF15147 K-REF15148 A-REF15149 LDA-REF15150
       TAU-REF15151 WORK-REF15152 INFO-REF15153))))

(CFFI:DEFCFUN ("sorgrq_" %%SORGRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORGRQ (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGRQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15154 ':INT32) (N-REF15155 ':INT32)
                              (K-REF15156 ':INT32) (LDA-REF15158 ':INT32)
                              (LWORK-REF15161 ':INT32) (INFO-REF15162 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15154 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15155 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15156 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15158 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15161 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15162 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15157 A) (TAU-REF15159 TAU)
                                            (WORK-REF15160 WORK))
      (%%SORGRQ M-REF15154 N-REF15155 K-REF15156 A-REF15157 LDA-REF15158
       TAU-REF15159 WORK-REF15160 LWORK-REF15161 INFO-REF15162))))

(CFFI:DEFCFUN ("sorgtr_" %%SORGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORGTR (UPLO N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15164 ':INT32) (LDA-REF15166 ':INT32)
                              (LWORK-REF15169 ':INT32) (INFO-REF15170 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15164 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15166 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15169 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15170 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15165 A) (TAU-REF15167 TAU)
                                            (WORK-REF15168 WORK))
      (%%SORGTR UPLO N-REF15164 A-REF15165 LDA-REF15166 TAU-REF15167
       WORK-REF15168 LWORK-REF15169 INFO-REF15170))))

(CFFI:DEFCFUN ("sorgtsqr_" %%SORGTSQR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORGTSQR (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGTSQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15171 ':INT32) (N-REF15172 ':INT32)
                              (MB-REF15173 ':INT32) (NB-REF15174 ':INT32)
                              (LDA-REF15176 ':INT32) (LDT-REF15178 ':INT32)
                              (LWORK-REF15180 ':INT32) (INFO-REF15181 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15171 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15172 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF15173 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF15174 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15176 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF15178 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15180 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15181 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15175 A) (T-REF15177 T)
                                            (WORK-REF15179 WORK))
      (%%SORGTSQR M-REF15171 N-REF15172 MB-REF15173 NB-REF15174 A-REF15175
       LDA-REF15176 T-REF15177 LDT-REF15178 WORK-REF15179 LWORK-REF15180
       INFO-REF15181))))

(CFFI:DEFCFUN ("sorhr_col_" %%SORHR_COL :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (D :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORHR_COL (M N NB A LDA T LDT D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORHR_COL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15182 ':INT32) (N-REF15183 ':INT32)
                              (NB-REF15184 ':INT32) (LDA-REF15186 ':INT32)
                              (LDT-REF15188 ':INT32) (INFO-REF15190 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15182 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15183 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF15184 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15186 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF15188 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15190 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15185 A) (T-REF15187 T)
                                            (D-REF15189 D))
      (%%SORHR_COL M-REF15182 N-REF15183 NB-REF15184 A-REF15185 LDA-REF15186
       T-REF15187 LDT-REF15188 D-REF15189 INFO-REF15190))))

(CFFI:DEFCFUN ("sorm22_" %%SORM22 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (N2 :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORM22 (SIDE TRANS M N N1 N2 Q LDQ C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORM22)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15193 ':INT32) (N-REF15194 ':INT32)
                              (N1-REF15195 ':INT32) (N2-REF15196 ':INT32)
                              (LDQ-REF15198 ':INT32) (LDC-REF15200 ':INT32)
                              (LWORK-REF15202 ':INT32) (INFO-REF15203 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15193 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15194 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF15195 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF15196 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15198 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15200 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15202 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15203 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF15197 Q) (C-REF15199 C)
                                            (WORK-REF15201 WORK))
      (%%SORM22 SIDE TRANS M-REF15193 N-REF15194 N1-REF15195 N2-REF15196
       Q-REF15197 LDQ-REF15198 C-REF15199 LDC-REF15200 WORK-REF15201
       LWORK-REF15202 INFO-REF15203))))

(CFFI:DEFCFUN ("sorm2l_" %%SORM2L :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORM2L (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORM2L)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15206 ':INT32) (N-REF15207 ':INT32)
                              (K-REF15208 ':INT32) (LDA-REF15210 ':INT32)
                              (LDC-REF15213 ':INT32) (INFO-REF15215 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15206 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15207 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15208 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15210 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15213 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15215 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15209 A) (TAU-REF15211 TAU)
                                            (C-REF15212 C) (WORK-REF15214 WORK))
      (%%SORM2L SIDE TRANS M-REF15206 N-REF15207 K-REF15208 A-REF15209
       LDA-REF15210 TAU-REF15211 C-REF15212 LDC-REF15213 WORK-REF15214
       INFO-REF15215))))

(CFFI:DEFCFUN ("sorm2r_" %%SORM2R :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORM2R (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORM2R)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15218 ':INT32) (N-REF15219 ':INT32)
                              (K-REF15220 ':INT32) (LDA-REF15222 ':INT32)
                              (LDC-REF15225 ':INT32) (INFO-REF15227 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15218 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15219 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15220 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15222 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15225 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15227 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15221 A) (TAU-REF15223 TAU)
                                            (C-REF15224 C) (WORK-REF15226 WORK))
      (%%SORM2R SIDE TRANS M-REF15218 N-REF15219 K-REF15220 A-REF15221
       LDA-REF15222 TAU-REF15223 C-REF15224 LDC-REF15225 WORK-REF15226
       INFO-REF15227))))

(CFFI:DEFCFUN ("sormbr_" %%SORMBR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORMBR
                   (VECT SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15231 ':INT32) (N-REF15232 ':INT32)
                              (K-REF15233 ':INT32) (LDA-REF15235 ':INT32)
                              (LDC-REF15238 ':INT32) (LWORK-REF15240 ':INT32)
                              (INFO-REF15241 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15231 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15232 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15233 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15235 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15238 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15240 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15241 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15234 A) (TAU-REF15236 TAU)
                                            (C-REF15237 C) (WORK-REF15239 WORK))
      (%%SORMBR VECT SIDE TRANS M-REF15231 N-REF15232 K-REF15233 A-REF15234
       LDA-REF15235 TAU-REF15236 C-REF15237 LDC-REF15238 WORK-REF15239
       LWORK-REF15240 INFO-REF15241))))

(CFFI:DEFCFUN ("sormhr_" %%SORMHR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORMHR
                   (SIDE TRANS M N ILO IHI A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMHR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15244 ':INT32) (N-REF15245 ':INT32)
                              (ILO-REF15246 ':INT32) (IHI-REF15247 ':INT32)
                              (LDA-REF15249 ':INT32) (LDC-REF15252 ':INT32)
                              (LWORK-REF15254 ':INT32) (INFO-REF15255 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15244 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15245 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF15246 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF15247 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15249 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15252 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15254 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15255 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15248 A) (TAU-REF15250 TAU)
                                            (C-REF15251 C) (WORK-REF15253 WORK))
      (%%SORMHR SIDE TRANS M-REF15244 N-REF15245 ILO-REF15246 IHI-REF15247
       A-REF15248 LDA-REF15249 TAU-REF15250 C-REF15251 LDC-REF15252
       WORK-REF15253 LWORK-REF15254 INFO-REF15255))))

(CFFI:DEFCFUN ("sorml2_" %%SORML2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORML2 (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORML2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15258 ':INT32) (N-REF15259 ':INT32)
                              (K-REF15260 ':INT32) (LDA-REF15262 ':INT32)
                              (LDC-REF15265 ':INT32) (INFO-REF15267 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15258 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15259 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15260 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15262 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15265 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15267 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15261 A) (TAU-REF15263 TAU)
                                            (C-REF15264 C) (WORK-REF15266 WORK))
      (%%SORML2 SIDE TRANS M-REF15258 N-REF15259 K-REF15260 A-REF15261
       LDA-REF15262 TAU-REF15263 C-REF15264 LDC-REF15265 WORK-REF15266
       INFO-REF15267))))

(CFFI:DEFCFUN ("sormlq_" %%SORMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORMLQ (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15270 ':INT32) (N-REF15271 ':INT32)
                              (K-REF15272 ':INT32) (LDA-REF15274 ':INT32)
                              (LDC-REF15277 ':INT32) (LWORK-REF15279 ':INT32)
                              (INFO-REF15280 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15270 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15271 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15272 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15274 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15277 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15279 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15280 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15273 A) (TAU-REF15275 TAU)
                                            (C-REF15276 C) (WORK-REF15278 WORK))
      (%%SORMLQ SIDE TRANS M-REF15270 N-REF15271 K-REF15272 A-REF15273
       LDA-REF15274 TAU-REF15275 C-REF15276 LDC-REF15277 WORK-REF15278
       LWORK-REF15279 INFO-REF15280))))

(CFFI:DEFCFUN ("sormql_" %%SORMQL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORMQL (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMQL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15283 ':INT32) (N-REF15284 ':INT32)
                              (K-REF15285 ':INT32) (LDA-REF15287 ':INT32)
                              (LDC-REF15290 ':INT32) (LWORK-REF15292 ':INT32)
                              (INFO-REF15293 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15283 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15284 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15285 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15287 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15290 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15292 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15293 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15286 A) (TAU-REF15288 TAU)
                                            (C-REF15289 C) (WORK-REF15291 WORK))
      (%%SORMQL SIDE TRANS M-REF15283 N-REF15284 K-REF15285 A-REF15286
       LDA-REF15287 TAU-REF15288 C-REF15289 LDC-REF15290 WORK-REF15291
       LWORK-REF15292 INFO-REF15293))))

(CFFI:DEFCFUN ("sormqr_" %%SORMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORMQR (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15296 ':INT32) (N-REF15297 ':INT32)
                              (K-REF15298 ':INT32) (LDA-REF15300 ':INT32)
                              (LDC-REF15303 ':INT32) (LWORK-REF15305 ':INT32)
                              (INFO-REF15306 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15296 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15297 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15298 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15300 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15303 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15305 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15306 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15299 A) (TAU-REF15301 TAU)
                                            (C-REF15302 C) (WORK-REF15304 WORK))
      (%%SORMQR SIDE TRANS M-REF15296 N-REF15297 K-REF15298 A-REF15299
       LDA-REF15300 TAU-REF15301 C-REF15302 LDC-REF15303 WORK-REF15304
       LWORK-REF15305 INFO-REF15306))))

(CFFI:DEFCFUN ("sormr2_" %%SORMR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORMR2 (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMR2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15309 ':INT32) (N-REF15310 ':INT32)
                              (K-REF15311 ':INT32) (LDA-REF15313 ':INT32)
                              (LDC-REF15316 ':INT32) (INFO-REF15318 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15309 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15310 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15311 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15313 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15316 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15318 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15312 A) (TAU-REF15314 TAU)
                                            (C-REF15315 C) (WORK-REF15317 WORK))
      (%%SORMR2 SIDE TRANS M-REF15309 N-REF15310 K-REF15311 A-REF15312
       LDA-REF15313 TAU-REF15314 C-REF15315 LDC-REF15316 WORK-REF15317
       INFO-REF15318))))

(CFFI:DEFCFUN ("sormr3_" %%SORMR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORMR3 (SIDE TRANS M N K L A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMR3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15321 ':INT32) (N-REF15322 ':INT32)
                              (K-REF15323 ':INT32) (L-REF15324 ':INT32)
                              (LDA-REF15326 ':INT32) (LDC-REF15329 ':INT32)
                              (INFO-REF15331 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15321 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15322 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15323 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF15324 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15326 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15329 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15331 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15325 A) (TAU-REF15327 TAU)
                                            (C-REF15328 C) (WORK-REF15330 WORK))
      (%%SORMR3 SIDE TRANS M-REF15321 N-REF15322 K-REF15323 L-REF15324
       A-REF15325 LDA-REF15326 TAU-REF15327 C-REF15328 LDC-REF15329
       WORK-REF15330 INFO-REF15331))))

(CFFI:DEFCFUN ("sormrq_" %%SORMRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORMRQ (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMRQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15334 ':INT32) (N-REF15335 ':INT32)
                              (K-REF15336 ':INT32) (LDA-REF15338 ':INT32)
                              (LDC-REF15341 ':INT32) (LWORK-REF15343 ':INT32)
                              (INFO-REF15344 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15334 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15335 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15336 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15338 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15341 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15343 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15344 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15337 A) (TAU-REF15339 TAU)
                                            (C-REF15340 C) (WORK-REF15342 WORK))
      (%%SORMRQ SIDE TRANS M-REF15334 N-REF15335 K-REF15336 A-REF15337
       LDA-REF15338 TAU-REF15339 C-REF15340 LDC-REF15341 WORK-REF15342
       LWORK-REF15343 INFO-REF15344))))

(CFFI:DEFCFUN ("sormrz_" %%SORMRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORMRZ (SIDE TRANS M N K L A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMRZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15347 ':INT32) (N-REF15348 ':INT32)
                              (K-REF15349 ':INT32) (L-REF15350 ':INT32)
                              (LDA-REF15352 ':INT32) (LDC-REF15355 ':INT32)
                              (LWORK-REF15357 ':INT32) (INFO-REF15358 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15347 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15348 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15349 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF15350 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15352 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15355 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15357 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15358 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15351 A) (TAU-REF15353 TAU)
                                            (C-REF15354 C) (WORK-REF15356 WORK))
      (%%SORMRZ SIDE TRANS M-REF15347 N-REF15348 K-REF15349 L-REF15350
       A-REF15351 LDA-REF15352 TAU-REF15353 C-REF15354 LDC-REF15355
       WORK-REF15356 LWORK-REF15357 INFO-REF15358))))

(CFFI:DEFCFUN ("sormtr_" %%SORMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORMTR
                   (SIDE UPLO TRANS M N A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15362 ':INT32) (N-REF15363 ':INT32)
                              (LDA-REF15365 ':INT32) (LDC-REF15368 ':INT32)
                              (LWORK-REF15370 ':INT32) (INFO-REF15371 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15362 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15363 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15365 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15368 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15370 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15371 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15364 A) (TAU-REF15366 TAU)
                                            (C-REF15367 C) (WORK-REF15369 WORK))
      (%%SORMTR SIDE UPLO TRANS M-REF15362 N-REF15363 A-REF15364 LDA-REF15365
       TAU-REF15366 C-REF15367 LDC-REF15368 WORK-REF15369 LWORK-REF15370
       INFO-REF15371))))

(CFFI:DEFCFUN ("spbcon_" %%SPBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPBCON (UPLO N KD AB LDAB ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15373 ':INT32) (KD-REF15374 ':INT32)
                              (LDAB-REF15376 ':INT32) (ANORM-REF15377 ':FLOAT)
                              (RCOND-REF15378 ':FLOAT) (INFO-REF15381 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15373 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15374 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15376 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15377 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15378 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15381 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15375 AB)
                                            (WORK-REF15379 WORK)
                                            (IWORK-REF15380 IWORK))
      (%%SPBCON UPLO N-REF15373 KD-REF15374 AB-REF15375 LDAB-REF15376
       ANORM-REF15377 RCOND-REF15378 WORK-REF15379 IWORK-REF15380
       INFO-REF15381))))

(CFFI:DEFCFUN ("spbequ_" %%SPBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPBEQU (UPLO N KD AB LDAB S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBEQU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15383 ':INT32) (KD-REF15384 ':INT32)
                              (LDAB-REF15386 ':INT32) (SCOND-REF15388 ':FLOAT)
                              (AMAX-REF15389 ':FLOAT) (INFO-REF15390 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15383 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15384 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15386 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF15388 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF15389 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15390 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15385 AB) (S-REF15387 S))
      (%%SPBEQU UPLO N-REF15383 KD-REF15384 AB-REF15385 LDAB-REF15386
       S-REF15387 SCOND-REF15388 AMAX-REF15389 INFO-REF15390))))

(CFFI:DEFCFUN ("spbrfs_" %%SPBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPBRFS
                   (UPLO N KD NRHS AB LDAB AFB LDAFB B LDB X LDX FERR BERR WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15392 ':INT32) (KD-REF15393 ':INT32)
                              (NRHS-REF15394 ':INT32) (LDAB-REF15396 ':INT32)
                              (LDAFB-REF15398 ':INT32) (LDB-REF15400 ':INT32)
                              (LDX-REF15402 ':INT32) (INFO-REF15407 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15392 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15393 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15394 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15396 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF15398 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15400 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15402 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15407 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15395 AB) (AFB-REF15397 AFB)
                                            (B-REF15399 B) (X-REF15401 X)
                                            (FERR-REF15403 FERR)
                                            (BERR-REF15404 BERR)
                                            (WORK-REF15405 WORK)
                                            (IWORK-REF15406 IWORK))
      (%%SPBRFS UPLO N-REF15392 KD-REF15393 NRHS-REF15394 AB-REF15395
       LDAB-REF15396 AFB-REF15397 LDAFB-REF15398 B-REF15399 LDB-REF15400
       X-REF15401 LDX-REF15402 FERR-REF15403 BERR-REF15404 WORK-REF15405
       IWORK-REF15406 INFO-REF15407))))

(CFFI:DEFCFUN ("spbstf_" %%SPBSTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPBSTF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBSTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15409 ':INT32) (KD-REF15410 ':INT32)
                              (LDAB-REF15412 ':INT32) (INFO-REF15413 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15409 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15410 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15412 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15413 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15411 AB))
      (%%SPBSTF UPLO N-REF15409 KD-REF15410 AB-REF15411 LDAB-REF15412
       INFO-REF15413))))

(CFFI:DEFCFUN ("spbsv_" %%SPBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPBSV (UPLO N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15415 ':INT32) (KD-REF15416 ':INT32)
                              (NRHS-REF15417 ':INT32) (LDAB-REF15419 ':INT32)
                              (LDB-REF15421 ':INT32) (INFO-REF15422 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15415 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15416 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15417 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15419 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15421 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15422 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15418 AB) (B-REF15420 B))
      (%%SPBSV UPLO N-REF15415 KD-REF15416 NRHS-REF15417 AB-REF15418
       LDAB-REF15419 B-REF15420 LDB-REF15421 INFO-REF15422))))

(CFFI:DEFCFUN ("spbsvx_" %%SPBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPBSVX
                   (FACT UPLO N KD NRHS AB LDAB AFB LDAFB EQUED S B LDB X LDX
                    RCOND FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15425 ':INT32) (KD-REF15426 ':INT32)
                              (NRHS-REF15427 ':INT32) (LDAB-REF15429 ':INT32)
                              (LDAFB-REF15431 ':INT32) (LDB-REF15435 ':INT32)
                              (LDX-REF15437 ':INT32) (RCOND-REF15438 ':FLOAT)
                              (INFO-REF15443 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15425 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15426 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15427 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15429 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF15431 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15435 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15437 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15438 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15443 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15428 AB) (AFB-REF15430 AFB)
                                            (S-REF15433 S) (B-REF15434 B)
                                            (X-REF15436 X) (FERR-REF15439 FERR)
                                            (BERR-REF15440 BERR)
                                            (WORK-REF15441 WORK)
                                            (IWORK-REF15442 IWORK))
      (%%SPBSVX FACT UPLO N-REF15425 KD-REF15426 NRHS-REF15427 AB-REF15428
       LDAB-REF15429 AFB-REF15430 LDAFB-REF15431 EQUED S-REF15433 B-REF15434
       LDB-REF15435 X-REF15436 LDX-REF15437 RCOND-REF15438 FERR-REF15439
       BERR-REF15440 WORK-REF15441 IWORK-REF15442 INFO-REF15443))))

(CFFI:DEFCFUN ("spbtf2_" %%SPBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPBTF2 (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15445 ':INT32) (KD-REF15446 ':INT32)
                              (LDAB-REF15448 ':INT32) (INFO-REF15449 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15445 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15446 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15448 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15449 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15447 AB))
      (%%SPBTF2 UPLO N-REF15445 KD-REF15446 AB-REF15447 LDAB-REF15448
       INFO-REF15449))))

(CFFI:DEFCFUN ("spbtrf_" %%SPBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPBTRF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15451 ':INT32) (KD-REF15452 ':INT32)
                              (LDAB-REF15454 ':INT32) (INFO-REF15455 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15451 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15452 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15454 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15455 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15453 AB))
      (%%SPBTRF UPLO N-REF15451 KD-REF15452 AB-REF15453 LDAB-REF15454
       INFO-REF15455))))

(CFFI:DEFCFUN ("spbtrs_" %%SPBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPBTRS (UPLO N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15457 ':INT32) (KD-REF15458 ':INT32)
                              (NRHS-REF15459 ':INT32) (LDAB-REF15461 ':INT32)
                              (LDB-REF15463 ':INT32) (INFO-REF15464 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15457 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15458 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15459 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15461 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15463 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15464 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15460 AB) (B-REF15462 B))
      (%%SPBTRS UPLO N-REF15457 KD-REF15458 NRHS-REF15459 AB-REF15460
       LDAB-REF15461 B-REF15462 LDB-REF15463 INFO-REF15464))))

(CFFI:DEFCFUN ("spftrf_" %%SPFTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPFTRF (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPFTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15467 ':INT32) (INFO-REF15469 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15467 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15469 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15468 A))
      (%%SPFTRF TRANSR UPLO N-REF15467 A-REF15468 INFO-REF15469))))

(CFFI:DEFCFUN ("spftri_" %%SPFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPFTRI (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPFTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15472 ':INT32) (INFO-REF15474 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15472 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15474 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15473 A))
      (%%SPFTRI TRANSR UPLO N-REF15472 A-REF15473 INFO-REF15474))))

(CFFI:DEFCFUN ("spftrs_" %%SPFTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPFTRS (TRANSR UPLO N NRHS A B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPFTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15477 ':INT32) (NRHS-REF15478 ':INT32)
                              (LDB-REF15481 ':INT32) (INFO-REF15482 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15477 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15478 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15481 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15482 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15479 A) (B-REF15480 B))
      (%%SPFTRS TRANSR UPLO N-REF15477 NRHS-REF15478 A-REF15479 B-REF15480
       LDB-REF15481 INFO-REF15482))))

(CFFI:DEFCFUN ("spocon_" %%SPOCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPOCON (UPLO N A LDA ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15484 ':INT32) (LDA-REF15486 ':INT32)
                              (ANORM-REF15487 ':FLOAT) (RCOND-REF15488 ':FLOAT)
                              (INFO-REF15491 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15484 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15486 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15487 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15488 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15491 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15485 A) (WORK-REF15489 WORK)
                                            (IWORK-REF15490 IWORK))
      (%%SPOCON UPLO N-REF15484 A-REF15485 LDA-REF15486 ANORM-REF15487
       RCOND-REF15488 WORK-REF15489 IWORK-REF15490 INFO-REF15491))))

(CFFI:DEFCFUN ("spoequ_" %%SPOEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPOEQU (N A LDA S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15492 ':INT32) (LDA-REF15494 ':INT32)
                              (SCOND-REF15496 ':FLOAT) (AMAX-REF15497 ':FLOAT)
                              (INFO-REF15498 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15492 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15494 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF15496 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF15497 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15498 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15493 A) (S-REF15495 S))
      (%%SPOEQU N-REF15492 A-REF15493 LDA-REF15494 S-REF15495 SCOND-REF15496
       AMAX-REF15497 INFO-REF15498))))

(CFFI:DEFCFUN ("spoequb_" %%SPOEQUB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPOEQUB (N A LDA S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15499 ':INT32) (LDA-REF15501 ':INT32)
                              (SCOND-REF15503 ':FLOAT) (AMAX-REF15504 ':FLOAT)
                              (INFO-REF15505 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15499 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15501 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF15503 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF15504 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15505 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15500 A) (S-REF15502 S))
      (%%SPOEQUB N-REF15499 A-REF15500 LDA-REF15501 S-REF15502 SCOND-REF15503
       AMAX-REF15504 INFO-REF15505))))

(CFFI:DEFCFUN ("sporfs_" %%SPORFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPORFS
                   (UPLO N NRHS A LDA AF LDAF B LDB X LDX FERR BERR WORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPORFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15507 ':INT32) (NRHS-REF15508 ':INT32)
                              (LDA-REF15510 ':INT32) (LDAF-REF15512 ':INT32)
                              (LDB-REF15514 ':INT32) (LDX-REF15516 ':INT32)
                              (INFO-REF15521 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15507 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15508 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15510 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF15512 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15514 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15516 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15521 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15509 A) (AF-REF15511 AF)
                                            (B-REF15513 B) (X-REF15515 X)
                                            (FERR-REF15517 FERR)
                                            (BERR-REF15518 BERR)
                                            (WORK-REF15519 WORK)
                                            (IWORK-REF15520 IWORK))
      (%%SPORFS UPLO N-REF15507 NRHS-REF15508 A-REF15509 LDA-REF15510
       AF-REF15511 LDAF-REF15512 B-REF15513 LDB-REF15514 X-REF15515
       LDX-REF15516 FERR-REF15517 BERR-REF15518 WORK-REF15519 IWORK-REF15520
       INFO-REF15521))))

(CFFI:DEFCFUN ("sporfsx_" %%SPORFSX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPORFSX
                   (UPLO EQUED N NRHS A LDA AF LDAF S B LDB X LDX RCOND BERR
                    N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPORFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15524 ':INT32) (NRHS-REF15525 ':INT32)
                              (LDA-REF15527 ':INT32) (LDAF-REF15529 ':INT32)
                              (LDB-REF15532 ':INT32) (LDX-REF15534 ':INT32)
                              (RCOND-REF15535 ':FLOAT)
                              (N_ERR_BNDS-REF15537 ':INT32)
                              (NPARAMS-REF15540 ':INT32)
                              (INFO-REF15544 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15524 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15525 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15527 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF15529 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15532 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15534 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15535 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF15537 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF15540 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15544 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15526 A) (AF-REF15528 AF)
                                            (S-REF15530 S) (B-REF15531 B)
                                            (X-REF15533 X) (BERR-REF15536 BERR)
                                            (ERR_BNDS_NORM-REF15538
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF15539
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF15541 PARAMS)
                                            (WORK-REF15542 WORK)
                                            (IWORK-REF15543 IWORK))
      (%%SPORFSX UPLO EQUED N-REF15524 NRHS-REF15525 A-REF15526 LDA-REF15527
       AF-REF15528 LDAF-REF15529 S-REF15530 B-REF15531 LDB-REF15532 X-REF15533
       LDX-REF15534 RCOND-REF15535 BERR-REF15536 N_ERR_BNDS-REF15537
       ERR_BNDS_NORM-REF15538 ERR_BNDS_COMP-REF15539 NPARAMS-REF15540
       PARAMS-REF15541 WORK-REF15542 IWORK-REF15543 INFO-REF15544))))

(CFFI:DEFCFUN ("sposv_" %%SPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPOSV (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15546 ':INT32) (NRHS-REF15547 ':INT32)
                              (LDA-REF15549 ':INT32) (LDB-REF15551 ':INT32)
                              (INFO-REF15552 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15546 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15547 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15549 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15551 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15552 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15548 A) (B-REF15550 B))
      (%%SPOSV UPLO N-REF15546 NRHS-REF15547 A-REF15548 LDA-REF15549 B-REF15550
       LDB-REF15551 INFO-REF15552))))

(CFFI:DEFCFUN ("sposvx_" %%SPOSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPOSVX
                   (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND
                    FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15555 ':INT32) (NRHS-REF15556 ':INT32)
                              (LDA-REF15558 ':INT32) (LDAF-REF15560 ':INT32)
                              (LDB-REF15564 ':INT32) (LDX-REF15566 ':INT32)
                              (RCOND-REF15567 ':FLOAT) (INFO-REF15572 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15555 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15556 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15558 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF15560 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15564 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15566 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15567 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15572 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15557 A) (AF-REF15559 AF)
                                            (S-REF15562 S) (B-REF15563 B)
                                            (X-REF15565 X) (FERR-REF15568 FERR)
                                            (BERR-REF15569 BERR)
                                            (WORK-REF15570 WORK)
                                            (IWORK-REF15571 IWORK))
      (%%SPOSVX FACT UPLO N-REF15555 NRHS-REF15556 A-REF15557 LDA-REF15558
       AF-REF15559 LDAF-REF15560 EQUED S-REF15562 B-REF15563 LDB-REF15564
       X-REF15565 LDX-REF15566 RCOND-REF15567 FERR-REF15568 BERR-REF15569
       WORK-REF15570 IWORK-REF15571 INFO-REF15572))))

(CFFI:DEFCFUN ("sposvxx_" %%SPOSVXX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPOSVXX
                   (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND
                    RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS
                    PARAMS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15575 ':INT32) (NRHS-REF15576 ':INT32)
                              (LDA-REF15578 ':INT32) (LDAF-REF15580 ':INT32)
                              (LDB-REF15584 ':INT32) (LDX-REF15586 ':INT32)
                              (RCOND-REF15587 ':FLOAT)
                              (RPVGRW-REF15588 ':FLOAT)
                              (N_ERR_BNDS-REF15590 ':INT32)
                              (NPARAMS-REF15593 ':INT32)
                              (INFO-REF15597 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15575 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15576 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15578 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF15580 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15584 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15586 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15587 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF15588 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF15590 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF15593 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15597 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15577 A) (AF-REF15579 AF)
                                            (S-REF15582 S) (B-REF15583 B)
                                            (X-REF15585 X) (BERR-REF15589 BERR)
                                            (ERR_BNDS_NORM-REF15591
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF15592
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF15594 PARAMS)
                                            (WORK-REF15595 WORK)
                                            (IWORK-REF15596 IWORK))
      (%%SPOSVXX FACT UPLO N-REF15575 NRHS-REF15576 A-REF15577 LDA-REF15578
       AF-REF15579 LDAF-REF15580 EQUED S-REF15582 B-REF15583 LDB-REF15584
       X-REF15585 LDX-REF15586 RCOND-REF15587 RPVGRW-REF15588 BERR-REF15589
       N_ERR_BNDS-REF15590 ERR_BNDS_NORM-REF15591 ERR_BNDS_COMP-REF15592
       NPARAMS-REF15593 PARAMS-REF15594 WORK-REF15595 IWORK-REF15596
       INFO-REF15597))))

(CFFI:DEFCFUN ("spotf2_" %%SPOTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPOTF2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15599 ':INT32) (LDA-REF15601 ':INT32)
                              (INFO-REF15602 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15599 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15601 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15602 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15600 A))
      (%%SPOTF2 UPLO N-REF15599 A-REF15600 LDA-REF15601 INFO-REF15602))))

(CFFI:DEFCFUN ("spotrf_" %%SPOTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPOTRF (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15604 ':INT32) (LDA-REF15606 ':INT32)
                              (INFO-REF15607 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15604 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15606 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15607 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15605 A))
      (%%SPOTRF UPLO N-REF15604 A-REF15605 LDA-REF15606 INFO-REF15607))))

(CFFI:DEFCFUN ("spotrf2_" %%SPOTRF2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPOTRF2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOTRF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15609 ':INT32) (LDA-REF15611 ':INT32)
                              (INFO-REF15612 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15609 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15611 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15612 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15610 A))
      (%%SPOTRF2 UPLO N-REF15609 A-REF15610 LDA-REF15611 INFO-REF15612))))

(CFFI:DEFCFUN ("spotri_" %%SPOTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPOTRI (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15614 ':INT32) (LDA-REF15616 ':INT32)
                              (INFO-REF15617 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15614 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15616 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15617 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15615 A))
      (%%SPOTRI UPLO N-REF15614 A-REF15615 LDA-REF15616 INFO-REF15617))))

(CFFI:DEFCFUN ("spotrs_" %%SPOTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPOTRS (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15619 ':INT32) (NRHS-REF15620 ':INT32)
                              (LDA-REF15622 ':INT32) (LDB-REF15624 ':INT32)
                              (INFO-REF15625 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15619 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15620 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15622 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15624 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15625 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15621 A) (B-REF15623 B))
      (%%SPOTRS UPLO N-REF15619 NRHS-REF15620 A-REF15621 LDA-REF15622
       B-REF15623 LDB-REF15624 INFO-REF15625))))

(CFFI:DEFCFUN ("sppcon_" %%SPPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPPCON (UPLO N AP ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15627 ':INT32) (ANORM-REF15629 ':FLOAT)
                              (RCOND-REF15630 ':FLOAT) (INFO-REF15633 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15627 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15629 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15630 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15633 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15628 AP)
                                            (WORK-REF15631 WORK)
                                            (IWORK-REF15632 IWORK))
      (%%SPPCON UPLO N-REF15627 AP-REF15628 ANORM-REF15629 RCOND-REF15630
       WORK-REF15631 IWORK-REF15632 INFO-REF15633))))

(CFFI:DEFCFUN ("sppequ_" %%SPPEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPPEQU (UPLO N AP S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPEQU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15635 ':INT32) (SCOND-REF15638 ':FLOAT)
                              (AMAX-REF15639 ':FLOAT) (INFO-REF15640 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15635 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF15638 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF15639 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15640 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15636 AP) (S-REF15637 S))
      (%%SPPEQU UPLO N-REF15635 AP-REF15636 S-REF15637 SCOND-REF15638
       AMAX-REF15639 INFO-REF15640))))

(CFFI:DEFCFUN ("spprfs_" %%SPPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPPRFS
                   (UPLO N NRHS AP AFP B LDB X LDX FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15642 ':INT32) (NRHS-REF15643 ':INT32)
                              (LDB-REF15647 ':INT32) (LDX-REF15649 ':INT32)
                              (INFO-REF15654 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15642 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15643 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15647 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15649 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15654 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15644 AP) (AFP-REF15645 AFP)
                                            (B-REF15646 B) (X-REF15648 X)
                                            (FERR-REF15650 FERR)
                                            (BERR-REF15651 BERR)
                                            (WORK-REF15652 WORK)
                                            (IWORK-REF15653 IWORK))
      (%%SPPRFS UPLO N-REF15642 NRHS-REF15643 AP-REF15644 AFP-REF15645
       B-REF15646 LDB-REF15647 X-REF15648 LDX-REF15649 FERR-REF15650
       BERR-REF15651 WORK-REF15652 IWORK-REF15653 INFO-REF15654))))

(CFFI:DEFCFUN ("sppsv_" %%SPPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPPSV (UPLO N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15656 ':INT32) (NRHS-REF15657 ':INT32)
                              (LDB-REF15660 ':INT32) (INFO-REF15661 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15656 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15657 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15660 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15661 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15658 AP) (B-REF15659 B))
      (%%SPPSV UPLO N-REF15656 NRHS-REF15657 AP-REF15658 B-REF15659
       LDB-REF15660 INFO-REF15661))))

(CFFI:DEFCFUN ("sppsvx_" %%SPPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPPSVX
                   (FACT UPLO N NRHS AP AFP EQUED S B LDB X LDX RCOND FERR BERR
                    WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15664 ':INT32) (NRHS-REF15665 ':INT32)
                              (LDB-REF15671 ':INT32) (LDX-REF15673 ':INT32)
                              (RCOND-REF15674 ':FLOAT) (INFO-REF15679 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15664 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15665 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15671 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15673 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15674 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15679 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15666 AP) (AFP-REF15667 AFP)
                                            (S-REF15669 S) (B-REF15670 B)
                                            (X-REF15672 X) (FERR-REF15675 FERR)
                                            (BERR-REF15676 BERR)
                                            (WORK-REF15677 WORK)
                                            (IWORK-REF15678 IWORK))
      (%%SPPSVX FACT UPLO N-REF15664 NRHS-REF15665 AP-REF15666 AFP-REF15667
       EQUED S-REF15669 B-REF15670 LDB-REF15671 X-REF15672 LDX-REF15673
       RCOND-REF15674 FERR-REF15675 BERR-REF15676 WORK-REF15677 IWORK-REF15678
       INFO-REF15679))))

(CFFI:DEFCFUN ("spptrf_" %%SPPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPPTRF (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15681 ':INT32) (INFO-REF15683 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15681 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15683 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15682 AP))
      (%%SPPTRF UPLO N-REF15681 AP-REF15682 INFO-REF15683))))

(CFFI:DEFCFUN ("spptri_" %%SPPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPPTRI (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15685 ':INT32) (INFO-REF15687 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15685 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15687 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15686 AP))
      (%%SPPTRI UPLO N-REF15685 AP-REF15686 INFO-REF15687))))

(CFFI:DEFCFUN ("spptrs_" %%SPPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPPTRS (UPLO N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15689 ':INT32) (NRHS-REF15690 ':INT32)
                              (LDB-REF15693 ':INT32) (INFO-REF15694 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15689 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15690 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15693 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15694 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15691 AP) (B-REF15692 B))
      (%%SPPTRS UPLO N-REF15689 NRHS-REF15690 AP-REF15691 B-REF15692
       LDB-REF15693 INFO-REF15694))))

(CFFI:DEFCFUN ("spstf2_" %%SPSTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (PIV :POINTER)
  (RANK :POINTER)
  (TOL :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPSTF2 (UPLO N A LDA PIV RANK TOL WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPSTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15696 ':INT32) (LDA-REF15698 ':INT32)
                              (RANK-REF15700 ':INT32) (TOL-REF15701 ':FLOAT)
                              (INFO-REF15703 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15696 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15698 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF15700 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF15701 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15703 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15697 A) (PIV-REF15699 PIV)
                                            (WORK-REF15702 WORK))
      (%%SPSTF2 UPLO N-REF15696 A-REF15697 LDA-REF15698 PIV-REF15699
       RANK-REF15700 TOL-REF15701 WORK-REF15702 INFO-REF15703))))

(CFFI:DEFCFUN ("spstrf_" %%SPSTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (PIV :POINTER)
  (RANK :POINTER)
  (TOL :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPSTRF (UPLO N A LDA PIV RANK TOL WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPSTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15705 ':INT32) (LDA-REF15707 ':INT32)
                              (RANK-REF15709 ':INT32) (TOL-REF15710 ':FLOAT)
                              (INFO-REF15712 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15705 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15707 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF15709 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF15710 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15712 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15706 A) (PIV-REF15708 PIV)
                                            (WORK-REF15711 WORK))
      (%%SPSTRF UPLO N-REF15705 A-REF15706 LDA-REF15707 PIV-REF15708
       RANK-REF15709 TOL-REF15710 WORK-REF15711 INFO-REF15712))))

(CFFI:DEFCFUN ("sptcon_" %%SPTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPTCON (N D E ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPTCON)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15713 ':INT32) (ANORM-REF15716 ':FLOAT)
                              (RCOND-REF15717 ':FLOAT) (INFO-REF15719 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15713 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15716 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15717 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15719 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15714 D) (E-REF15715 E)
                                            (WORK-REF15718 WORK))
      (%%SPTCON N-REF15713 D-REF15714 E-REF15715 ANORM-REF15716 RCOND-REF15717
       WORK-REF15718 INFO-REF15719))))

(CFFI:DEFCFUN ("spteqr_" %%SPTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPTEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15721 ':INT32) (LDZ-REF15725 ':INT32)
                              (INFO-REF15727 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15721 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15725 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15727 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15722 D) (E-REF15723 E)
                                            (Z-REF15724 Z) (WORK-REF15726 WORK))
      (%%SPTEQR COMPZ N-REF15721 D-REF15722 E-REF15723 Z-REF15724 LDZ-REF15725
       WORK-REF15726 INFO-REF15727))))

(CFFI:DEFCFUN ("sptrfs_" %%SPTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (DF :POINTER)
  (EF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPTRFS (N NRHS D E DF EF B LDB X LDX FERR BERR WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPTRFS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) EF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15728 ':INT32) (NRHS-REF15729 ':INT32)
                              (LDB-REF15735 ':INT32) (LDX-REF15737 ':INT32)
                              (INFO-REF15741 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15728 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15729 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15735 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15737 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15741 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15730 D) (E-REF15731 E)
                                            (DF-REF15732 DF) (EF-REF15733 EF)
                                            (B-REF15734 B) (X-REF15736 X)
                                            (FERR-REF15738 FERR)
                                            (BERR-REF15739 BERR)
                                            (WORK-REF15740 WORK))
      (%%SPTRFS N-REF15728 NRHS-REF15729 D-REF15730 E-REF15731 DF-REF15732
       EF-REF15733 B-REF15734 LDB-REF15735 X-REF15736 LDX-REF15737
       FERR-REF15738 BERR-REF15739 WORK-REF15740 INFO-REF15741))))

(CFFI:DEFCFUN ("sptsv_" %%SPTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPTSV (N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPTSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15742 ':INT32) (NRHS-REF15743 ':INT32)
                              (LDB-REF15747 ':INT32) (INFO-REF15748 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15742 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15743 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15747 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15748 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15744 D) (E-REF15745 E)
                                            (B-REF15746 B))
      (%%SPTSV N-REF15742 NRHS-REF15743 D-REF15744 E-REF15745 B-REF15746
       LDB-REF15747 INFO-REF15748))))

(CFFI:DEFCFUN ("sptsvx_" %%SPTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (DF :POINTER)
  (EF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPTSVX
                   (FACT N NRHS D E DF EF B LDB X LDX RCOND FERR BERR WORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPTSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) EF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15750 ':INT32) (NRHS-REF15751 ':INT32)
                              (LDB-REF15757 ':INT32) (LDX-REF15759 ':INT32)
                              (RCOND-REF15760 ':FLOAT) (INFO-REF15764 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15750 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15751 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15757 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15759 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15760 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15764 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15752 D) (E-REF15753 E)
                                            (DF-REF15754 DF) (EF-REF15755 EF)
                                            (B-REF15756 B) (X-REF15758 X)
                                            (FERR-REF15761 FERR)
                                            (BERR-REF15762 BERR)
                                            (WORK-REF15763 WORK))
      (%%SPTSVX FACT N-REF15750 NRHS-REF15751 D-REF15752 E-REF15753 DF-REF15754
       EF-REF15755 B-REF15756 LDB-REF15757 X-REF15758 LDX-REF15759
       RCOND-REF15760 FERR-REF15761 BERR-REF15762 WORK-REF15763
       INFO-REF15764))))

(CFFI:DEFCFUN ("spttrf_" %%SPTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPTTRF (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPTTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15765 ':INT32) (INFO-REF15768 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15765 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15768 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15766 D) (E-REF15767 E))
      (%%SPTTRF N-REF15765 D-REF15766 E-REF15767 INFO-REF15768))))

(CFFI:DEFCFUN ("spttrs_" %%SPTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPTTRS (N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPTTRS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15769 ':INT32) (NRHS-REF15770 ':INT32)
                              (LDB-REF15774 ':INT32) (INFO-REF15775 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15769 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15770 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15774 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15775 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15771 D) (E-REF15772 E)
                                            (B-REF15773 B))
      (%%SPTTRS N-REF15769 NRHS-REF15770 D-REF15771 E-REF15772 B-REF15773
       LDB-REF15774 INFO-REF15775))))

(CFFI:DEFCFUN ("sptts2_" %%SPTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %SPTTS2 (N NRHS D E B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPTTS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15776 ':INT32) (NRHS-REF15777 ':INT32)
                              (LDB-REF15781 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15776 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15777 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15781 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15778 D) (E-REF15779 E)
                                            (B-REF15780 B))
      (%%SPTTS2 N-REF15776 NRHS-REF15777 D-REF15778 E-REF15779 B-REF15780
       LDB-REF15781))))

(CFFI:DEFCFUN ("srscl_" %%SRSCL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (SA :POINTER)
  (SX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %SRSCL (N SA SX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SRSCL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15782 ':INT32) (SA-REF15783 ':FLOAT)
                              (INCX-REF15785 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15782 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF15783 :FLOAT) SA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF15785 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF15784 SX))
      (%%SRSCL N-REF15782 SA-REF15783 SX-REF15784 INCX-REF15785))))

(CFFI:DEFCFUN ("ssb2st_kernels_" %%SSB2ST_KERNELS :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WANTZ :POINTER)
  (TTYPE :POINTER)
  (ST :POINTER)
  (ED :POINTER)
  (SWEEP :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (IB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (V :POINTER)
  (TAU :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SSB2ST_KERNELS
                   (UPLO WANTZ TTYPE ST ED SWEEP N NB IB A LDA V TAU LDVT WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSB2ST_KERNELS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SWEEP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTZ-REF15787 ':INT32) (TTYPE-REF15788 ':INT32)
                              (ST-REF15789 ':INT32) (ED-REF15790 ':INT32)
                              (SWEEP-REF15791 ':INT32) (N-REF15792 ':INT32)
                              (NB-REF15793 ':INT32) (IB-REF15794 ':INT32)
                              (LDA-REF15796 ':INT32) (LDVT-REF15799 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF15787 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF15788 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF ST-REF15789 :INT32) ST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ED-REF15790 :INT32) ED)
    (COMMON-LISP:SETF (CFFI:MEM-REF SWEEP-REF15791 :INT32) SWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15792 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF15793 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IB-REF15794 :INT32) IB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15796 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF15799 :INT32) LDVT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15795 A) (V-REF15797 V)
                                            (TAU-REF15798 TAU)
                                            (WORK-REF15800 WORK))
      (%%SSB2ST_KERNELS UPLO WANTZ-REF15787 TTYPE-REF15788 ST-REF15789
       ED-REF15790 SWEEP-REF15791 N-REF15792 NB-REF15793 IB-REF15794 A-REF15795
       LDA-REF15796 V-REF15797 TAU-REF15798 LDVT-REF15799 WORK-REF15800))))

(CFFI:DEFCFUN ("ssbev_" %%SSBEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSBEV (JOBZ UPLO N KD AB LDAB W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15803 ':INT32) (KD-REF15804 ':INT32)
                              (LDAB-REF15806 ':INT32) (LDZ-REF15809 ':INT32)
                              (INFO-REF15811 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15803 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15804 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15806 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15809 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15811 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15805 AB) (W-REF15807 W)
                                            (Z-REF15808 Z) (WORK-REF15810 WORK))
      (%%SSBEV JOBZ UPLO N-REF15803 KD-REF15804 AB-REF15805 LDAB-REF15806
       W-REF15807 Z-REF15808 LDZ-REF15809 WORK-REF15810 INFO-REF15811))))

(CFFI:DEFCFUN ("ssbev_2stage_" %%SSBEV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSBEV_2STAGE
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBEV_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15814 ':INT32) (KD-REF15815 ':INT32)
                              (LDAB-REF15817 ':INT32) (LDZ-REF15820 ':INT32)
                              (LWORK-REF15822 ':INT32) (INFO-REF15823 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15814 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15815 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15817 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15820 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15822 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15823 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15816 AB) (W-REF15818 W)
                                            (Z-REF15819 Z) (WORK-REF15821 WORK))
      (%%SSBEV_2STAGE JOBZ UPLO N-REF15814 KD-REF15815 AB-REF15816
       LDAB-REF15817 W-REF15818 Z-REF15819 LDZ-REF15820 WORK-REF15821
       LWORK-REF15822 INFO-REF15823))))

(CFFI:DEFCFUN ("ssbevd_" %%SSBEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSBEVD
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15826 ':INT32) (KD-REF15827 ':INT32)
                              (LDAB-REF15829 ':INT32) (LDZ-REF15832 ':INT32)
                              (LWORK-REF15834 ':INT32)
                              (LIWORK-REF15836 ':INT32) (INFO-REF15837 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15826 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15827 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15829 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15832 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15834 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF15836 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15837 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15828 AB) (W-REF15830 W)
                                            (Z-REF15831 Z) (WORK-REF15833 WORK)
                                            (IWORK-REF15835 IWORK))
      (%%SSBEVD JOBZ UPLO N-REF15826 KD-REF15827 AB-REF15828 LDAB-REF15829
       W-REF15830 Z-REF15831 LDZ-REF15832 WORK-REF15833 LWORK-REF15834
       IWORK-REF15835 LIWORK-REF15836 INFO-REF15837))))

(CFFI:DEFCFUN ("ssbevd_2stage_" %%SSBEVD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSBEVD_2STAGE
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBEVD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15840 ':INT32) (KD-REF15841 ':INT32)
                              (LDAB-REF15843 ':INT32) (LDZ-REF15846 ':INT32)
                              (LWORK-REF15848 ':INT32)
                              (LIWORK-REF15850 ':INT32) (INFO-REF15851 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15840 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15841 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15843 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15846 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15848 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF15850 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15851 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15842 AB) (W-REF15844 W)
                                            (Z-REF15845 Z) (WORK-REF15847 WORK)
                                            (IWORK-REF15849 IWORK))
      (%%SSBEVD_2STAGE JOBZ UPLO N-REF15840 KD-REF15841 AB-REF15842
       LDAB-REF15843 W-REF15844 Z-REF15845 LDZ-REF15846 WORK-REF15847
       LWORK-REF15848 IWORK-REF15849 LIWORK-REF15850 INFO-REF15851))))

(CFFI:DEFCFUN ("ssbevx_" %%SSBEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSBEVX
                   (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z
                    LDZ WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15855 ':INT32) (KD-REF15856 ':INT32)
                              (LDAB-REF15858 ':INT32) (LDQ-REF15860 ':INT32)
                              (VL-REF15861 ':FLOAT) (VU-REF15862 ':FLOAT)
                              (IL-REF15863 ':INT32) (IU-REF15864 ':INT32)
                              (ABSTOL-REF15865 ':FLOAT) (M-REF15866 ':INT32)
                              (LDZ-REF15869 ':INT32) (INFO-REF15873 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15855 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15856 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15858 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15860 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF15861 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF15862 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF15863 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF15864 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF15865 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15866 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15869 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15873 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15857 AB) (Q-REF15859 Q)
                                            (W-REF15867 W) (Z-REF15868 Z)
                                            (WORK-REF15870 WORK)
                                            (IWORK-REF15871 IWORK)
                                            (IFAIL-REF15872 IFAIL))
      (%%SSBEVX JOBZ RANGE UPLO N-REF15855 KD-REF15856 AB-REF15857
       LDAB-REF15858 Q-REF15859 LDQ-REF15860 VL-REF15861 VU-REF15862
       IL-REF15863 IU-REF15864 ABSTOL-REF15865 M-REF15866 W-REF15867 Z-REF15868
       LDZ-REF15869 WORK-REF15870 IWORK-REF15871 IFAIL-REF15872
       INFO-REF15873))))

(CFFI:DEFCFUN ("ssbevx_2stage_" %%SSBEVX_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSBEVX_2STAGE
                   (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z
                    LDZ WORK LWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBEVX_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15877 ':INT32) (KD-REF15878 ':INT32)
                              (LDAB-REF15880 ':INT32) (LDQ-REF15882 ':INT32)
                              (VL-REF15883 ':FLOAT) (VU-REF15884 ':FLOAT)
                              (IL-REF15885 ':INT32) (IU-REF15886 ':INT32)
                              (ABSTOL-REF15887 ':FLOAT) (M-REF15888 ':INT32)
                              (LDZ-REF15891 ':INT32) (LWORK-REF15893 ':INT32)
                              (INFO-REF15896 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15877 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15878 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15880 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15882 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF15883 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF15884 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF15885 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF15886 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF15887 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15888 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15891 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15893 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15896 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15879 AB) (Q-REF15881 Q)
                                            (W-REF15889 W) (Z-REF15890 Z)
                                            (WORK-REF15892 WORK)
                                            (IWORK-REF15894 IWORK)
                                            (IFAIL-REF15895 IFAIL))
      (%%SSBEVX_2STAGE JOBZ RANGE UPLO N-REF15877 KD-REF15878 AB-REF15879
       LDAB-REF15880 Q-REF15881 LDQ-REF15882 VL-REF15883 VU-REF15884
       IL-REF15885 IU-REF15886 ABSTOL-REF15887 M-REF15888 W-REF15889 Z-REF15890
       LDZ-REF15891 WORK-REF15892 LWORK-REF15893 IWORK-REF15894 IFAIL-REF15895
       INFO-REF15896))))

(CFFI:DEFCFUN ("ssbgst_" %%SSBGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSBGST (VECT UPLO N KA KB AB LDAB BB LDBB X LDX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBGST)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15899 ':INT32) (KA-REF15900 ':INT32)
                              (KB-REF15901 ':INT32) (LDAB-REF15903 ':INT32)
                              (LDBB-REF15905 ':INT32) (LDX-REF15907 ':INT32)
                              (INFO-REF15909 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15899 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF15900 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF15901 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15903 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF15905 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15907 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15909 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15902 AB) (BB-REF15904 BB)
                                            (X-REF15906 X) (WORK-REF15908 WORK))
      (%%SSBGST VECT UPLO N-REF15899 KA-REF15900 KB-REF15901 AB-REF15902
       LDAB-REF15903 BB-REF15904 LDBB-REF15905 X-REF15906 LDX-REF15907
       WORK-REF15908 INFO-REF15909))))

(CFFI:DEFCFUN ("ssbgv_" %%SSBGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSBGV (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBGV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15912 ':INT32) (KA-REF15913 ':INT32)
                              (KB-REF15914 ':INT32) (LDAB-REF15916 ':INT32)
                              (LDBB-REF15918 ':INT32) (LDZ-REF15921 ':INT32)
                              (INFO-REF15923 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15912 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF15913 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF15914 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15916 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF15918 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15921 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15923 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15915 AB) (BB-REF15917 BB)
                                            (W-REF15919 W) (Z-REF15920 Z)
                                            (WORK-REF15922 WORK))
      (%%SSBGV JOBZ UPLO N-REF15912 KA-REF15913 KB-REF15914 AB-REF15915
       LDAB-REF15916 BB-REF15917 LDBB-REF15918 W-REF15919 Z-REF15920
       LDZ-REF15921 WORK-REF15922 INFO-REF15923))))

(CFFI:DEFCFUN ("ssbgvd_" %%SSBGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSBGVD
                   (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK LWORK IWORK
                    LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBGVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15926 ':INT32) (KA-REF15927 ':INT32)
                              (KB-REF15928 ':INT32) (LDAB-REF15930 ':INT32)
                              (LDBB-REF15932 ':INT32) (LDZ-REF15935 ':INT32)
                              (LWORK-REF15937 ':INT32)
                              (LIWORK-REF15939 ':INT32) (INFO-REF15940 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15926 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF15927 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF15928 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15930 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF15932 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15935 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15937 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF15939 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15940 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15929 AB) (BB-REF15931 BB)
                                            (W-REF15933 W) (Z-REF15934 Z)
                                            (WORK-REF15936 WORK)
                                            (IWORK-REF15938 IWORK))
      (%%SSBGVD JOBZ UPLO N-REF15926 KA-REF15927 KB-REF15928 AB-REF15929
       LDAB-REF15930 BB-REF15931 LDBB-REF15932 W-REF15933 Z-REF15934
       LDZ-REF15935 WORK-REF15936 LWORK-REF15937 IWORK-REF15938 LIWORK-REF15939
       INFO-REF15940))))

(CFFI:DEFCFUN ("ssbgvx_" %%SSBGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSBGVX
                   (JOBZ RANGE UPLO N KA KB AB LDAB BB LDBB Q LDQ VL VU IL IU
                    ABSTOL M W Z LDZ WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBGVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15944 ':INT32) (KA-REF15945 ':INT32)
                              (KB-REF15946 ':INT32) (LDAB-REF15948 ':INT32)
                              (LDBB-REF15950 ':INT32) (LDQ-REF15952 ':INT32)
                              (VL-REF15953 ':FLOAT) (VU-REF15954 ':FLOAT)
                              (IL-REF15955 ':INT32) (IU-REF15956 ':INT32)
                              (ABSTOL-REF15957 ':FLOAT) (M-REF15958 ':INT32)
                              (LDZ-REF15961 ':INT32) (INFO-REF15965 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15944 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF15945 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF15946 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15948 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF15950 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15952 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF15953 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF15954 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF15955 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF15956 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF15957 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15958 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15961 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15965 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15947 AB) (BB-REF15949 BB)
                                            (Q-REF15951 Q) (W-REF15959 W)
                                            (Z-REF15960 Z) (WORK-REF15962 WORK)
                                            (IWORK-REF15963 IWORK)
                                            (IFAIL-REF15964 IFAIL))
      (%%SSBGVX JOBZ RANGE UPLO N-REF15944 KA-REF15945 KB-REF15946 AB-REF15947
       LDAB-REF15948 BB-REF15949 LDBB-REF15950 Q-REF15951 LDQ-REF15952
       VL-REF15953 VU-REF15954 IL-REF15955 IU-REF15956 ABSTOL-REF15957
       M-REF15958 W-REF15959 Z-REF15960 LDZ-REF15961 WORK-REF15962
       IWORK-REF15963 IFAIL-REF15964 INFO-REF15965))))

(CFFI:DEFCFUN ("ssbtrd_" %%SSBTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSBTRD (VECT UPLO N KD AB LDAB D E Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBTRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15968 ':INT32) (KD-REF15969 ':INT32)
                              (LDAB-REF15971 ':INT32) (LDQ-REF15975 ':INT32)
                              (INFO-REF15977 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15968 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15969 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15971 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15975 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15977 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15970 AB) (D-REF15972 D)
                                            (E-REF15973 E) (Q-REF15974 Q)
                                            (WORK-REF15976 WORK))
      (%%SSBTRD VECT UPLO N-REF15968 KD-REF15969 AB-REF15970 LDAB-REF15971
       D-REF15972 E-REF15973 Q-REF15974 LDQ-REF15975 WORK-REF15976
       INFO-REF15977))))

(CFFI:DEFCFUN ("ssfrk_" %%SSFRK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (BETA :POINTER)
  (C :POINTER))

(COMMON-LISP:DEFUN %SSFRK (TRANSR UPLO TRANS N K ALPHA A LDA BETA C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSFRK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15981 ':INT32) (K-REF15982 ':INT32)
                              (ALPHA-REF15983 ':FLOAT) (LDA-REF15985 ':INT32)
                              (BETA-REF15986 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15981 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15982 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF15983 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15985 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF15986 :FLOAT) BETA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15984 A) (C-REF15987 C))
      (%%SSFRK TRANSR UPLO TRANS N-REF15981 K-REF15982 ALPHA-REF15983
       A-REF15984 LDA-REF15985 BETA-REF15986 C-REF15987))))

(CFFI:DEFCFUN ("sspcon_" %%SSPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPCON (UPLO N AP IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15989 ':INT32) (ANORM-REF15992 ':FLOAT)
                              (RCOND-REF15993 ':FLOAT) (INFO-REF15996 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15989 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15992 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15993 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15996 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15990 AP)
                                            (IPIV-REF15991 IPIV)
                                            (WORK-REF15994 WORK)
                                            (IWORK-REF15995 IWORK))
      (%%SSPCON UPLO N-REF15989 AP-REF15990 IPIV-REF15991 ANORM-REF15992
       RCOND-REF15993 WORK-REF15994 IWORK-REF15995 INFO-REF15996))))

(CFFI:DEFCFUN ("sspev_" %%SSPEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPEV (JOBZ UPLO N AP W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15999 ':INT32) (LDZ-REF16003 ':INT32)
                              (INFO-REF16005 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15999 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16003 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16005 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16000 AP) (W-REF16001 W)
                                            (Z-REF16002 Z) (WORK-REF16004 WORK))
      (%%SSPEV JOBZ UPLO N-REF15999 AP-REF16000 W-REF16001 Z-REF16002
       LDZ-REF16003 WORK-REF16004 INFO-REF16005))))

(CFFI:DEFCFUN ("sspevd_" %%SSPEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPEVD
                   (JOBZ UPLO N AP W Z LDZ WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16008 ':INT32) (LDZ-REF16012 ':INT32)
                              (LWORK-REF16014 ':INT32)
                              (LIWORK-REF16016 ':INT32) (INFO-REF16017 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16008 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16012 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16014 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16016 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16017 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16009 AP) (W-REF16010 W)
                                            (Z-REF16011 Z) (WORK-REF16013 WORK)
                                            (IWORK-REF16015 IWORK))
      (%%SSPEVD JOBZ UPLO N-REF16008 AP-REF16009 W-REF16010 Z-REF16011
       LDZ-REF16012 WORK-REF16013 LWORK-REF16014 IWORK-REF16015 LIWORK-REF16016
       INFO-REF16017))))

(CFFI:DEFCFUN ("sspevx_" %%SSPEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPEVX
                   (JOBZ RANGE UPLO N AP VL VU IL IU ABSTOL M W Z LDZ WORK
                    IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16021 ':INT32) (VL-REF16023 ':FLOAT)
                              (VU-REF16024 ':FLOAT) (IL-REF16025 ':INT32)
                              (IU-REF16026 ':INT32) (ABSTOL-REF16027 ':FLOAT)
                              (M-REF16028 ':INT32) (LDZ-REF16031 ':INT32)
                              (INFO-REF16035 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16021 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16023 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16024 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16025 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16026 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16027 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16028 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16031 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16035 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16022 AP) (W-REF16029 W)
                                            (Z-REF16030 Z) (WORK-REF16032 WORK)
                                            (IWORK-REF16033 IWORK)
                                            (IFAIL-REF16034 IFAIL))
      (%%SSPEVX JOBZ RANGE UPLO N-REF16021 AP-REF16022 VL-REF16023 VU-REF16024
       IL-REF16025 IU-REF16026 ABSTOL-REF16027 M-REF16028 W-REF16029 Z-REF16030
       LDZ-REF16031 WORK-REF16032 IWORK-REF16033 IFAIL-REF16034
       INFO-REF16035))))

(CFFI:DEFCFUN ("sspgst_" %%SSPGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPGST (ITYPE UPLO N AP BP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPGST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16036 ':INT32) (N-REF16038 ':INT32)
                              (INFO-REF16041 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16036 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16038 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16041 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16039 AP) (BP-REF16040 BP))
      (%%SSPGST ITYPE-REF16036 UPLO N-REF16038 AP-REF16039 BP-REF16040
       INFO-REF16041))))

(CFFI:DEFCFUN ("sspgv_" %%SSPGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPGV (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16042 ':INT32) (N-REF16045 ':INT32)
                              (LDZ-REF16050 ':INT32) (INFO-REF16052 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16042 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16045 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16050 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16052 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16046 AP) (BP-REF16047 BP)
                                            (W-REF16048 W) (Z-REF16049 Z)
                                            (WORK-REF16051 WORK))
      (%%SSPGV ITYPE-REF16042 JOBZ UPLO N-REF16045 AP-REF16046 BP-REF16047
       W-REF16048 Z-REF16049 LDZ-REF16050 WORK-REF16051 INFO-REF16052))))

(CFFI:DEFCFUN ("sspgvd_" %%SSPGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPGVD
                   (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK LWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPGVD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16053 ':INT32) (N-REF16056 ':INT32)
                              (LDZ-REF16061 ':INT32) (LWORK-REF16063 ':INT32)
                              (LIWORK-REF16065 ':INT32) (INFO-REF16066 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16053 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16056 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16061 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16063 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16065 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16066 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16057 AP) (BP-REF16058 BP)
                                            (W-REF16059 W) (Z-REF16060 Z)
                                            (WORK-REF16062 WORK)
                                            (IWORK-REF16064 IWORK))
      (%%SSPGVD ITYPE-REF16053 JOBZ UPLO N-REF16056 AP-REF16057 BP-REF16058
       W-REF16059 Z-REF16060 LDZ-REF16061 WORK-REF16062 LWORK-REF16063
       IWORK-REF16064 LIWORK-REF16065 INFO-REF16066))))

(CFFI:DEFCFUN ("sspgvx_" %%SSPGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPGVX
                   (ITYPE JOBZ RANGE UPLO N AP BP VL VU IL IU ABSTOL M W Z LDZ
                    WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPGVX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16067 ':INT32) (N-REF16071 ':INT32)
                              (VL-REF16074 ':FLOAT) (VU-REF16075 ':FLOAT)
                              (IL-REF16076 ':INT32) (IU-REF16077 ':INT32)
                              (ABSTOL-REF16078 ':FLOAT) (M-REF16079 ':INT32)
                              (LDZ-REF16082 ':INT32) (INFO-REF16086 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16067 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16071 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16074 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16075 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16076 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16077 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16078 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16079 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16082 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16086 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16072 AP) (BP-REF16073 BP)
                                            (W-REF16080 W) (Z-REF16081 Z)
                                            (WORK-REF16083 WORK)
                                            (IWORK-REF16084 IWORK)
                                            (IFAIL-REF16085 IFAIL))
      (%%SSPGVX ITYPE-REF16067 JOBZ RANGE UPLO N-REF16071 AP-REF16072
       BP-REF16073 VL-REF16074 VU-REF16075 IL-REF16076 IU-REF16077
       ABSTOL-REF16078 M-REF16079 W-REF16080 Z-REF16081 LDZ-REF16082
       WORK-REF16083 IWORK-REF16084 IFAIL-REF16085 INFO-REF16086))))

(CFFI:DEFCFUN ("ssprfs_" %%SSPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPRFS
                   (UPLO N NRHS AP AFP IPIV B LDB X LDX FERR BERR WORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16088 ':INT32) (NRHS-REF16089 ':INT32)
                              (LDB-REF16094 ':INT32) (LDX-REF16096 ':INT32)
                              (INFO-REF16101 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16088 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16089 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16094 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16096 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16101 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16090 AP) (AFP-REF16091 AFP)
                                            (IPIV-REF16092 IPIV) (B-REF16093 B)
                                            (X-REF16095 X) (FERR-REF16097 FERR)
                                            (BERR-REF16098 BERR)
                                            (WORK-REF16099 WORK)
                                            (IWORK-REF16100 IWORK))
      (%%SSPRFS UPLO N-REF16088 NRHS-REF16089 AP-REF16090 AFP-REF16091
       IPIV-REF16092 B-REF16093 LDB-REF16094 X-REF16095 LDX-REF16096
       FERR-REF16097 BERR-REF16098 WORK-REF16099 IWORK-REF16100
       INFO-REF16101))))

(CFFI:DEFCFUN ("sspsv_" %%SSPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPSV (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16103 ':INT32) (NRHS-REF16104 ':INT32)
                              (LDB-REF16108 ':INT32) (INFO-REF16109 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16103 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16104 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16108 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16109 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16105 AP)
                                            (IPIV-REF16106 IPIV) (B-REF16107 B))
      (%%SSPSV UPLO N-REF16103 NRHS-REF16104 AP-REF16105 IPIV-REF16106
       B-REF16107 LDB-REF16108 INFO-REF16109))))

(CFFI:DEFCFUN ("sspsvx_" %%SSPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPSVX
                   (FACT UPLO N NRHS AP AFP IPIV B LDB X LDX RCOND FERR BERR
                    WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16112 ':INT32) (NRHS-REF16113 ':INT32)
                              (LDB-REF16118 ':INT32) (LDX-REF16120 ':INT32)
                              (RCOND-REF16121 ':FLOAT) (INFO-REF16126 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16112 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16113 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16118 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16120 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16121 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16126 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16114 AP) (AFP-REF16115 AFP)
                                            (IPIV-REF16116 IPIV) (B-REF16117 B)
                                            (X-REF16119 X) (FERR-REF16122 FERR)
                                            (BERR-REF16123 BERR)
                                            (WORK-REF16124 WORK)
                                            (IWORK-REF16125 IWORK))
      (%%SSPSVX FACT UPLO N-REF16112 NRHS-REF16113 AP-REF16114 AFP-REF16115
       IPIV-REF16116 B-REF16117 LDB-REF16118 X-REF16119 LDX-REF16120
       RCOND-REF16121 FERR-REF16122 BERR-REF16123 WORK-REF16124 IWORK-REF16125
       INFO-REF16126))))

(CFFI:DEFCFUN ("ssptrd_" %%SSPTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPTRD (UPLO N AP D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPTRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16128 ':INT32) (INFO-REF16133 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16128 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16133 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16129 AP) (D-REF16130 D)
                                            (E-REF16131 E) (TAU-REF16132 TAU))
      (%%SSPTRD UPLO N-REF16128 AP-REF16129 D-REF16130 E-REF16131 TAU-REF16132
       INFO-REF16133))))

(CFFI:DEFCFUN ("ssptrf_" %%SSPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPTRF (UPLO N AP IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16135 ':INT32) (INFO-REF16138 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16135 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16138 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16136 AP)
                                            (IPIV-REF16137 IPIV))
      (%%SSPTRF UPLO N-REF16135 AP-REF16136 IPIV-REF16137 INFO-REF16138))))

(CFFI:DEFCFUN ("ssptri_" %%SSPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPTRI (UPLO N AP IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16140 ':INT32) (INFO-REF16144 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16140 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16144 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16141 AP)
                                            (IPIV-REF16142 IPIV)
                                            (WORK-REF16143 WORK))
      (%%SSPTRI UPLO N-REF16140 AP-REF16141 IPIV-REF16142 WORK-REF16143
       INFO-REF16144))))

(CFFI:DEFCFUN ("ssptrs_" %%SSPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPTRS (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16146 ':INT32) (NRHS-REF16147 ':INT32)
                              (LDB-REF16151 ':INT32) (INFO-REF16152 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16146 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16147 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16151 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16152 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16148 AP)
                                            (IPIV-REF16149 IPIV) (B-REF16150 B))
      (%%SSPTRS UPLO N-REF16146 NRHS-REF16147 AP-REF16148 IPIV-REF16149
       B-REF16150 LDB-REF16151 INFO-REF16152))))

(CFFI:DEFCFUN ("sstebz_" %%SSTEBZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (RANGE :STRING)
  (ORDER :STRING)
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (D :POINTER)
  (E :POINTER)
  (M :POINTER)
  (NSPLIT :POINTER)
  (W :POINTER)
  (IBLOCK :POINTER)
  (ISPLIT :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSTEBZ
                   (RANGE ORDER N VL VU IL IU ABSTOL D E M NSPLIT W IBLOCK
                    ISPLIT WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING ORDER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16155 ':INT32) (VL-REF16156 ':FLOAT)
                              (VU-REF16157 ':FLOAT) (IL-REF16158 ':INT32)
                              (IU-REF16159 ':INT32) (ABSTOL-REF16160 ':FLOAT)
                              (M-REF16163 ':INT32) (NSPLIT-REF16164 ':INT32)
                              (INFO-REF16170 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16155 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16156 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16157 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16158 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16159 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16160 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16163 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF16164 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16170 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16161 D) (E-REF16162 E)
                                            (W-REF16165 W)
                                            (IBLOCK-REF16166 IBLOCK)
                                            (ISPLIT-REF16167 ISPLIT)
                                            (WORK-REF16168 WORK)
                                            (IWORK-REF16169 IWORK))
      (%%SSTEBZ RANGE ORDER N-REF16155 VL-REF16156 VU-REF16157 IL-REF16158
       IU-REF16159 ABSTOL-REF16160 D-REF16161 E-REF16162 M-REF16163
       NSPLIT-REF16164 W-REF16165 IBLOCK-REF16166 ISPLIT-REF16167 WORK-REF16168
       IWORK-REF16169 INFO-REF16170))))

(CFFI:DEFCFUN ("sstedc_" %%SSTEDC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSTEDC (COMPZ N D E Z LDZ WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEDC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16172 ':INT32) (LDZ-REF16176 ':INT32)
                              (LWORK-REF16178 ':INT32)
                              (LIWORK-REF16180 ':INT32) (INFO-REF16181 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16172 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16176 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16178 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16180 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16181 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16173 D) (E-REF16174 E)
                                            (Z-REF16175 Z) (WORK-REF16177 WORK)
                                            (IWORK-REF16179 IWORK))
      (%%SSTEDC COMPZ N-REF16172 D-REF16173 E-REF16174 Z-REF16175 LDZ-REF16176
       WORK-REF16177 LWORK-REF16178 IWORK-REF16179 LIWORK-REF16180
       INFO-REF16181))))

(CFFI:DEFCFUN ("sstegr_" %%SSTEGR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSTEGR
                   (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK
                    LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEGR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16184 ':INT32) (VL-REF16187 ':FLOAT)
                              (VU-REF16188 ':FLOAT) (IL-REF16189 ':INT32)
                              (IU-REF16190 ':INT32) (ABSTOL-REF16191 ':FLOAT)
                              (M-REF16192 ':INT32) (LDZ-REF16195 ':INT32)
                              (LWORK-REF16198 ':INT32)
                              (LIWORK-REF16200 ':INT32) (INFO-REF16201 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16184 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16187 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16188 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16189 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16190 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16191 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16192 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16195 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16198 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16200 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16201 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16185 D) (E-REF16186 E)
                                            (W-REF16193 W) (Z-REF16194 Z)
                                            (ISUPPZ-REF16196 ISUPPZ)
                                            (WORK-REF16197 WORK)
                                            (IWORK-REF16199 IWORK))
      (%%SSTEGR JOBZ RANGE N-REF16184 D-REF16185 E-REF16186 VL-REF16187
       VU-REF16188 IL-REF16189 IU-REF16190 ABSTOL-REF16191 M-REF16192
       W-REF16193 Z-REF16194 LDZ-REF16195 ISUPPZ-REF16196 WORK-REF16197
       LWORK-REF16198 IWORK-REF16199 LIWORK-REF16200 INFO-REF16201))))

(CFFI:DEFCFUN ("sstein_" %%SSTEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (M :POINTER)
  (W :POINTER)
  (IBLOCK :POINTER)
  (ISPLIT :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSTEIN
                   (N D E M W IBLOCK ISPLIT Z LDZ WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16202 ':INT32) (M-REF16205 ':INT32)
                              (LDZ-REF16210 ':INT32) (INFO-REF16214 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16202 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16205 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16210 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16214 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16203 D) (E-REF16204 E)
                                            (W-REF16206 W)
                                            (IBLOCK-REF16207 IBLOCK)
                                            (ISPLIT-REF16208 ISPLIT)
                                            (Z-REF16209 Z) (WORK-REF16211 WORK)
                                            (IWORK-REF16212 IWORK)
                                            (IFAIL-REF16213 IFAIL))
      (%%SSTEIN N-REF16202 D-REF16203 E-REF16204 M-REF16205 W-REF16206
       IBLOCK-REF16207 ISPLIT-REF16208 Z-REF16209 LDZ-REF16210 WORK-REF16211
       IWORK-REF16212 IFAIL-REF16213 INFO-REF16214))))

(CFFI:DEFCFUN ("sstemr_" %%SSTEMR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NZC :POINTER)
  (ISUPPZ :POINTER)
  (TRYRAC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSTEMR
                   (JOBZ RANGE N D E VL VU IL IU M W Z LDZ NZC ISUPPZ TRYRAC
                    WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEMR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRYRAC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16217 ':INT32) (VL-REF16220 ':FLOAT)
                              (VU-REF16221 ':FLOAT) (IL-REF16222 ':INT32)
                              (IU-REF16223 ':INT32) (M-REF16224 ':INT32)
                              (LDZ-REF16227 ':INT32) (NZC-REF16228 ':INT32)
                              (TRYRAC-REF16230 ':INT32)
                              (LWORK-REF16232 ':INT32)
                              (LIWORK-REF16234 ':INT32) (INFO-REF16235 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16217 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16220 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16221 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16222 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16223 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16224 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16227 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZC-REF16228 :INT32) NZC)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRYRAC-REF16230 :INT32) TRYRAC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16232 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16234 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16235 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16218 D) (E-REF16219 E)
                                            (W-REF16225 W) (Z-REF16226 Z)
                                            (ISUPPZ-REF16229 ISUPPZ)
                                            (WORK-REF16231 WORK)
                                            (IWORK-REF16233 IWORK))
      (%%SSTEMR JOBZ RANGE N-REF16217 D-REF16218 E-REF16219 VL-REF16220
       VU-REF16221 IL-REF16222 IU-REF16223 M-REF16224 W-REF16225 Z-REF16226
       LDZ-REF16227 NZC-REF16228 ISUPPZ-REF16229 TRYRAC-REF16230 WORK-REF16231
       LWORK-REF16232 IWORK-REF16233 LIWORK-REF16234 INFO-REF16235))))

(CFFI:DEFCFUN ("ssteqr_" %%SSTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16237 ':INT32) (LDZ-REF16241 ':INT32)
                              (INFO-REF16243 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16237 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16241 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16243 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16238 D) (E-REF16239 E)
                                            (Z-REF16240 Z) (WORK-REF16242 WORK))
      (%%SSTEQR COMPZ N-REF16237 D-REF16238 E-REF16239 Z-REF16240 LDZ-REF16241
       WORK-REF16242 INFO-REF16243))))

(CFFI:DEFCFUN ("ssterf_" %%SSTERF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSTERF (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTERF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16244 ':INT32) (INFO-REF16247 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16244 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16247 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16245 D) (E-REF16246 E))
      (%%SSTERF N-REF16244 D-REF16245 E-REF16246 INFO-REF16247))))

(CFFI:DEFCFUN ("sstev_" %%SSTEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSTEV (JOBZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16249 ':INT32) (LDZ-REF16253 ':INT32)
                              (INFO-REF16255 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16249 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16253 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16255 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16250 D) (E-REF16251 E)
                                            (Z-REF16252 Z) (WORK-REF16254 WORK))
      (%%SSTEV JOBZ N-REF16249 D-REF16250 E-REF16251 Z-REF16252 LDZ-REF16253
       WORK-REF16254 INFO-REF16255))))

(CFFI:DEFCFUN ("sstevd_" %%SSTEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSTEVD (JOBZ N D E Z LDZ WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16257 ':INT32) (LDZ-REF16261 ':INT32)
                              (LWORK-REF16263 ':INT32)
                              (LIWORK-REF16265 ':INT32) (INFO-REF16266 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16257 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16261 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16263 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16265 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16266 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16258 D) (E-REF16259 E)
                                            (Z-REF16260 Z) (WORK-REF16262 WORK)
                                            (IWORK-REF16264 IWORK))
      (%%SSTEVD JOBZ N-REF16257 D-REF16258 E-REF16259 Z-REF16260 LDZ-REF16261
       WORK-REF16262 LWORK-REF16263 IWORK-REF16264 LIWORK-REF16265
       INFO-REF16266))))

(CFFI:DEFCFUN ("sstevr_" %%SSTEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSTEVR
                   (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK
                    LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16269 ':INT32) (VL-REF16272 ':FLOAT)
                              (VU-REF16273 ':FLOAT) (IL-REF16274 ':INT32)
                              (IU-REF16275 ':INT32) (ABSTOL-REF16276 ':FLOAT)
                              (M-REF16277 ':INT32) (LDZ-REF16280 ':INT32)
                              (LWORK-REF16283 ':INT32)
                              (LIWORK-REF16285 ':INT32) (INFO-REF16286 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16269 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16272 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16273 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16274 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16275 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16276 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16277 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16280 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16283 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16285 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16286 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16270 D) (E-REF16271 E)
                                            (W-REF16278 W) (Z-REF16279 Z)
                                            (ISUPPZ-REF16281 ISUPPZ)
                                            (WORK-REF16282 WORK)
                                            (IWORK-REF16284 IWORK))
      (%%SSTEVR JOBZ RANGE N-REF16269 D-REF16270 E-REF16271 VL-REF16272
       VU-REF16273 IL-REF16274 IU-REF16275 ABSTOL-REF16276 M-REF16277
       W-REF16278 Z-REF16279 LDZ-REF16280 ISUPPZ-REF16281 WORK-REF16282
       LWORK-REF16283 IWORK-REF16284 LIWORK-REF16285 INFO-REF16286))))

(CFFI:DEFCFUN ("sstevx_" %%SSTEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSTEVX
                   (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ WORK IWORK
                    IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16289 ':INT32) (VL-REF16292 ':FLOAT)
                              (VU-REF16293 ':FLOAT) (IL-REF16294 ':INT32)
                              (IU-REF16295 ':INT32) (ABSTOL-REF16296 ':FLOAT)
                              (M-REF16297 ':INT32) (LDZ-REF16300 ':INT32)
                              (INFO-REF16304 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16289 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16292 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16293 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16294 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16295 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16296 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16297 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16300 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16304 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16290 D) (E-REF16291 E)
                                            (W-REF16298 W) (Z-REF16299 Z)
                                            (WORK-REF16301 WORK)
                                            (IWORK-REF16302 IWORK)
                                            (IFAIL-REF16303 IFAIL))
      (%%SSTEVX JOBZ RANGE N-REF16289 D-REF16290 E-REF16291 VL-REF16292
       VU-REF16293 IL-REF16294 IU-REF16295 ABSTOL-REF16296 M-REF16297
       W-REF16298 Z-REF16299 LDZ-REF16300 WORK-REF16301 IWORK-REF16302
       IFAIL-REF16303 INFO-REF16304))))

(CFFI:DEFCFUN ("ssycon_" %%SSYCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYCON (UPLO N A LDA IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16306 ':INT32) (LDA-REF16308 ':INT32)
                              (ANORM-REF16310 ':FLOAT) (RCOND-REF16311 ':FLOAT)
                              (INFO-REF16314 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16306 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16308 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF16310 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16311 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16314 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16307 A) (IPIV-REF16309 IPIV)
                                            (WORK-REF16312 WORK)
                                            (IWORK-REF16313 IWORK))
      (%%SSYCON UPLO N-REF16306 A-REF16307 LDA-REF16308 IPIV-REF16309
       ANORM-REF16310 RCOND-REF16311 WORK-REF16312 IWORK-REF16313
       INFO-REF16314))))

(CFFI:DEFCFUN ("ssycon_3_" %%SSYCON_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYCON_3 (UPLO N A LDA E IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYCON_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16316 ':INT32) (LDA-REF16318 ':INT32)
                              (ANORM-REF16321 ':FLOAT) (RCOND-REF16322 ':FLOAT)
                              (INFO-REF16325 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16316 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16318 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF16321 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16322 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16325 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16317 A) (E-REF16319 E)
                                            (IPIV-REF16320 IPIV)
                                            (WORK-REF16323 WORK)
                                            (IWORK-REF16324 IWORK))
      (%%SSYCON_3 UPLO N-REF16316 A-REF16317 LDA-REF16318 E-REF16319
       IPIV-REF16320 ANORM-REF16321 RCOND-REF16322 WORK-REF16323 IWORK-REF16324
       INFO-REF16325))))

(CFFI:DEFCFUN ("ssycon_rook_" %%SSYCON_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYCON_ROOK (UPLO N A LDA IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYCON_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16327 ':INT32) (LDA-REF16329 ':INT32)
                              (ANORM-REF16331 ':FLOAT) (RCOND-REF16332 ':FLOAT)
                              (INFO-REF16335 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16327 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16329 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF16331 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16332 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16335 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16328 A) (IPIV-REF16330 IPIV)
                                            (WORK-REF16333 WORK)
                                            (IWORK-REF16334 IWORK))
      (%%SSYCON_ROOK UPLO N-REF16327 A-REF16328 LDA-REF16329 IPIV-REF16330
       ANORM-REF16331 RCOND-REF16332 WORK-REF16333 IWORK-REF16334
       INFO-REF16335))))

(CFFI:DEFCFUN ("ssyconv_" %%SSYCONV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYCONV (UPLO WAY N A LDA IPIV E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYCONV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16338 ':INT32) (LDA-REF16340 ':INT32)
                              (INFO-REF16343 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16338 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16340 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16343 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16339 A) (IPIV-REF16341 IPIV)
                                            (E-REF16342 E))
      (%%SSYCONV UPLO WAY N-REF16338 A-REF16339 LDA-REF16340 IPIV-REF16341
       E-REF16342 INFO-REF16343))))

(CFFI:DEFCFUN ("ssyconvf_" %%SSYCONVF :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYCONVF (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYCONVF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16346 ':INT32) (LDA-REF16348 ':INT32)
                              (INFO-REF16351 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16346 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16348 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16351 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16347 A) (E-REF16349 E)
                                            (IPIV-REF16350 IPIV))
      (%%SSYCONVF UPLO WAY N-REF16346 A-REF16347 LDA-REF16348 E-REF16349
       IPIV-REF16350 INFO-REF16351))))

(CFFI:DEFCFUN ("ssyconvf_rook_" %%SSYCONVF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYCONVF_ROOK (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYCONVF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16354 ':INT32) (LDA-REF16356 ':INT32)
                              (INFO-REF16359 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16354 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16356 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16359 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16355 A) (E-REF16357 E)
                                            (IPIV-REF16358 IPIV))
      (%%SSYCONVF_ROOK UPLO WAY N-REF16354 A-REF16355 LDA-REF16356 E-REF16357
       IPIV-REF16358 INFO-REF16359))))

(CFFI:DEFCFUN ("ssyequb_" %%SSYEQUB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYEQUB (UPLO N A LDA S SCOND AMAX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEQUB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16361 ':INT32) (LDA-REF16363 ':INT32)
                              (SCOND-REF16365 ':FLOAT) (AMAX-REF16366 ':FLOAT)
                              (INFO-REF16368 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16361 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16363 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF16365 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF16366 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16368 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16362 A) (S-REF16364 S)
                                            (WORK-REF16367 WORK))
      (%%SSYEQUB UPLO N-REF16361 A-REF16362 LDA-REF16363 S-REF16364
       SCOND-REF16365 AMAX-REF16366 WORK-REF16367 INFO-REF16368))))

(CFFI:DEFCFUN ("ssyev_" %%SSYEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYEV (JOBZ UPLO N A LDA W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16371 ':INT32) (LDA-REF16373 ':INT32)
                              (LWORK-REF16376 ':INT32) (INFO-REF16377 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16371 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16373 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16376 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16377 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16372 A) (W-REF16374 W)
                                            (WORK-REF16375 WORK))
      (%%SSYEV JOBZ UPLO N-REF16371 A-REF16372 LDA-REF16373 W-REF16374
       WORK-REF16375 LWORK-REF16376 INFO-REF16377))))

(CFFI:DEFCFUN ("ssyev_2stage_" %%SSYEV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYEV_2STAGE (JOBZ UPLO N A LDA W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEV_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16380 ':INT32) (LDA-REF16382 ':INT32)
                              (LWORK-REF16385 ':INT32) (INFO-REF16386 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16380 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16382 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16385 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16386 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16381 A) (W-REF16383 W)
                                            (WORK-REF16384 WORK))
      (%%SSYEV_2STAGE JOBZ UPLO N-REF16380 A-REF16381 LDA-REF16382 W-REF16383
       WORK-REF16384 LWORK-REF16385 INFO-REF16386))))

(CFFI:DEFCFUN ("ssyevd_" %%SSYEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYEVD (JOBZ UPLO N A LDA W WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16389 ':INT32) (LDA-REF16391 ':INT32)
                              (LWORK-REF16394 ':INT32)
                              (LIWORK-REF16396 ':INT32) (INFO-REF16397 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16389 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16391 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16394 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16396 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16397 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16390 A) (W-REF16392 W)
                                            (WORK-REF16393 WORK)
                                            (IWORK-REF16395 IWORK))
      (%%SSYEVD JOBZ UPLO N-REF16389 A-REF16390 LDA-REF16391 W-REF16392
       WORK-REF16393 LWORK-REF16394 IWORK-REF16395 LIWORK-REF16396
       INFO-REF16397))))

(CFFI:DEFCFUN ("ssyevd_2stage_" %%SSYEVD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYEVD_2STAGE
                   (JOBZ UPLO N A LDA W WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEVD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16400 ':INT32) (LDA-REF16402 ':INT32)
                              (LWORK-REF16405 ':INT32)
                              (LIWORK-REF16407 ':INT32) (INFO-REF16408 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16400 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16402 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16405 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16407 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16408 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16401 A) (W-REF16403 W)
                                            (WORK-REF16404 WORK)
                                            (IWORK-REF16406 IWORK))
      (%%SSYEVD_2STAGE JOBZ UPLO N-REF16400 A-REF16401 LDA-REF16402 W-REF16403
       WORK-REF16404 LWORK-REF16405 IWORK-REF16406 LIWORK-REF16407
       INFO-REF16408))))

(CFFI:DEFCFUN ("ssyevr_" %%SSYEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYEVR
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ
                    WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16412 ':INT32) (LDA-REF16414 ':INT32)
                              (VL-REF16415 ':FLOAT) (VU-REF16416 ':FLOAT)
                              (IL-REF16417 ':INT32) (IU-REF16418 ':INT32)
                              (ABSTOL-REF16419 ':FLOAT) (M-REF16420 ':INT32)
                              (LDZ-REF16423 ':INT32) (LWORK-REF16426 ':INT32)
                              (LIWORK-REF16428 ':INT32) (INFO-REF16429 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16412 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16414 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16415 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16416 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16417 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16418 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16419 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16420 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16423 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16426 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16428 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16429 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16413 A) (W-REF16421 W)
                                            (Z-REF16422 Z)
                                            (ISUPPZ-REF16424 ISUPPZ)
                                            (WORK-REF16425 WORK)
                                            (IWORK-REF16427 IWORK))
      (%%SSYEVR JOBZ RANGE UPLO N-REF16412 A-REF16413 LDA-REF16414 VL-REF16415
       VU-REF16416 IL-REF16417 IU-REF16418 ABSTOL-REF16419 M-REF16420
       W-REF16421 Z-REF16422 LDZ-REF16423 ISUPPZ-REF16424 WORK-REF16425
       LWORK-REF16426 IWORK-REF16427 LIWORK-REF16428 INFO-REF16429))))

(CFFI:DEFCFUN ("ssyevr_2stage_" %%SSYEVR_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYEVR_2STAGE
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ
                    WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEVR_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16433 ':INT32) (LDA-REF16435 ':INT32)
                              (VL-REF16436 ':FLOAT) (VU-REF16437 ':FLOAT)
                              (IL-REF16438 ':INT32) (IU-REF16439 ':INT32)
                              (ABSTOL-REF16440 ':FLOAT) (M-REF16441 ':INT32)
                              (LDZ-REF16444 ':INT32) (LWORK-REF16447 ':INT32)
                              (LIWORK-REF16449 ':INT32) (INFO-REF16450 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16433 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16435 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16436 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16437 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16438 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16439 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16440 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16441 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16444 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16447 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16449 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16450 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16434 A) (W-REF16442 W)
                                            (Z-REF16443 Z)
                                            (ISUPPZ-REF16445 ISUPPZ)
                                            (WORK-REF16446 WORK)
                                            (IWORK-REF16448 IWORK))
      (%%SSYEVR_2STAGE JOBZ RANGE UPLO N-REF16433 A-REF16434 LDA-REF16435
       VL-REF16436 VU-REF16437 IL-REF16438 IU-REF16439 ABSTOL-REF16440
       M-REF16441 W-REF16442 Z-REF16443 LDZ-REF16444 ISUPPZ-REF16445
       WORK-REF16446 LWORK-REF16447 IWORK-REF16448 LIWORK-REF16449
       INFO-REF16450))))

(CFFI:DEFCFUN ("ssyevx_" %%SSYEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYEVX
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK
                    LWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16454 ':INT32) (LDA-REF16456 ':INT32)
                              (VL-REF16457 ':FLOAT) (VU-REF16458 ':FLOAT)
                              (IL-REF16459 ':INT32) (IU-REF16460 ':INT32)
                              (ABSTOL-REF16461 ':FLOAT) (M-REF16462 ':INT32)
                              (LDZ-REF16465 ':INT32) (LWORK-REF16467 ':INT32)
                              (INFO-REF16470 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16454 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16456 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16457 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16458 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16459 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16460 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16461 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16462 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16465 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16467 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16470 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16455 A) (W-REF16463 W)
                                            (Z-REF16464 Z) (WORK-REF16466 WORK)
                                            (IWORK-REF16468 IWORK)
                                            (IFAIL-REF16469 IFAIL))
      (%%SSYEVX JOBZ RANGE UPLO N-REF16454 A-REF16455 LDA-REF16456 VL-REF16457
       VU-REF16458 IL-REF16459 IU-REF16460 ABSTOL-REF16461 M-REF16462
       W-REF16463 Z-REF16464 LDZ-REF16465 WORK-REF16466 LWORK-REF16467
       IWORK-REF16468 IFAIL-REF16469 INFO-REF16470))))

(CFFI:DEFCFUN ("ssyevx_2stage_" %%SSYEVX_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYEVX_2STAGE
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK
                    LWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEVX_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16474 ':INT32) (LDA-REF16476 ':INT32)
                              (VL-REF16477 ':FLOAT) (VU-REF16478 ':FLOAT)
                              (IL-REF16479 ':INT32) (IU-REF16480 ':INT32)
                              (ABSTOL-REF16481 ':FLOAT) (M-REF16482 ':INT32)
                              (LDZ-REF16485 ':INT32) (LWORK-REF16487 ':INT32)
                              (INFO-REF16490 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16474 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16476 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16477 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16478 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16479 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16480 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16481 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16482 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16485 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16487 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16490 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16475 A) (W-REF16483 W)
                                            (Z-REF16484 Z) (WORK-REF16486 WORK)
                                            (IWORK-REF16488 IWORK)
                                            (IFAIL-REF16489 IFAIL))
      (%%SSYEVX_2STAGE JOBZ RANGE UPLO N-REF16474 A-REF16475 LDA-REF16476
       VL-REF16477 VU-REF16478 IL-REF16479 IU-REF16480 ABSTOL-REF16481
       M-REF16482 W-REF16483 Z-REF16484 LDZ-REF16485 WORK-REF16486
       LWORK-REF16487 IWORK-REF16488 IFAIL-REF16489 INFO-REF16490))))

(CFFI:DEFCFUN ("ssygs2_" %%SSYGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYGS2 (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYGS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16491 ':INT32) (N-REF16493 ':INT32)
                              (LDA-REF16495 ':INT32) (LDB-REF16497 ':INT32)
                              (INFO-REF16498 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16491 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16493 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16495 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16497 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16498 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16494 A) (B-REF16496 B))
      (%%SSYGS2 ITYPE-REF16491 UPLO N-REF16493 A-REF16494 LDA-REF16495
       B-REF16496 LDB-REF16497 INFO-REF16498))))

(CFFI:DEFCFUN ("ssygst_" %%SSYGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYGST (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYGST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16499 ':INT32) (N-REF16501 ':INT32)
                              (LDA-REF16503 ':INT32) (LDB-REF16505 ':INT32)
                              (INFO-REF16506 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16499 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16501 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16503 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16505 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16506 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16502 A) (B-REF16504 B))
      (%%SSYGST ITYPE-REF16499 UPLO N-REF16501 A-REF16502 LDA-REF16503
       B-REF16504 LDB-REF16505 INFO-REF16506))))

(CFFI:DEFCFUN ("ssygv_" %%SSYGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYGV (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16507 ':INT32) (N-REF16510 ':INT32)
                              (LDA-REF16512 ':INT32) (LDB-REF16514 ':INT32)
                              (LWORK-REF16517 ':INT32) (INFO-REF16518 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16507 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16510 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16512 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16514 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16517 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16518 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16511 A) (B-REF16513 B)
                                            (W-REF16515 W) (WORK-REF16516 WORK))
      (%%SSYGV ITYPE-REF16507 JOBZ UPLO N-REF16510 A-REF16511 LDA-REF16512
       B-REF16513 LDB-REF16514 W-REF16515 WORK-REF16516 LWORK-REF16517
       INFO-REF16518))))

(CFFI:DEFCFUN ("ssygv_2stage_" %%SSYGV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYGV_2STAGE
                   (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYGV_2STAGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16519 ':INT32) (N-REF16522 ':INT32)
                              (LDA-REF16524 ':INT32) (LDB-REF16526 ':INT32)
                              (LWORK-REF16529 ':INT32) (INFO-REF16530 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16519 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16522 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16524 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16526 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16529 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16530 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16523 A) (B-REF16525 B)
                                            (W-REF16527 W) (WORK-REF16528 WORK))
      (%%SSYGV_2STAGE ITYPE-REF16519 JOBZ UPLO N-REF16522 A-REF16523
       LDA-REF16524 B-REF16525 LDB-REF16526 W-REF16527 WORK-REF16528
       LWORK-REF16529 INFO-REF16530))))

(CFFI:DEFCFUN ("ssygvd_" %%SSYGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYGVD
                   (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYGVD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16531 ':INT32) (N-REF16534 ':INT32)
                              (LDA-REF16536 ':INT32) (LDB-REF16538 ':INT32)
                              (LWORK-REF16541 ':INT32)
                              (LIWORK-REF16543 ':INT32) (INFO-REF16544 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16531 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16534 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16536 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16538 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16541 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16543 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16544 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16535 A) (B-REF16537 B)
                                            (W-REF16539 W) (WORK-REF16540 WORK)
                                            (IWORK-REF16542 IWORK))
      (%%SSYGVD ITYPE-REF16531 JOBZ UPLO N-REF16534 A-REF16535 LDA-REF16536
       B-REF16537 LDB-REF16538 W-REF16539 WORK-REF16540 LWORK-REF16541
       IWORK-REF16542 LIWORK-REF16543 INFO-REF16544))))

(CFFI:DEFCFUN ("ssygvx_" %%SSYGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYGVX
                   (ITYPE JOBZ RANGE UPLO N A LDA B LDB VL VU IL IU ABSTOL M W
                    Z LDZ WORK LWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYGVX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16545 ':INT32) (N-REF16549 ':INT32)
                              (LDA-REF16551 ':INT32) (LDB-REF16553 ':INT32)
                              (VL-REF16554 ':FLOAT) (VU-REF16555 ':FLOAT)
                              (IL-REF16556 ':INT32) (IU-REF16557 ':INT32)
                              (ABSTOL-REF16558 ':FLOAT) (M-REF16559 ':INT32)
                              (LDZ-REF16562 ':INT32) (LWORK-REF16564 ':INT32)
                              (INFO-REF16567 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16545 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16549 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16551 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16553 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16554 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16555 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16556 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16557 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16558 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16559 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16562 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16564 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16567 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16550 A) (B-REF16552 B)
                                            (W-REF16560 W) (Z-REF16561 Z)
                                            (WORK-REF16563 WORK)
                                            (IWORK-REF16565 IWORK)
                                            (IFAIL-REF16566 IFAIL))
      (%%SSYGVX ITYPE-REF16545 JOBZ RANGE UPLO N-REF16549 A-REF16550
       LDA-REF16551 B-REF16552 LDB-REF16553 VL-REF16554 VU-REF16555 IL-REF16556
       IU-REF16557 ABSTOL-REF16558 M-REF16559 W-REF16560 Z-REF16561
       LDZ-REF16562 WORK-REF16563 LWORK-REF16564 IWORK-REF16565 IFAIL-REF16566
       INFO-REF16567))))

(CFFI:DEFCFUN ("ssyrfs_" %%SSYRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYRFS
                   (UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16569 ':INT32) (NRHS-REF16570 ':INT32)
                              (LDA-REF16572 ':INT32) (LDAF-REF16574 ':INT32)
                              (LDB-REF16577 ':INT32) (LDX-REF16579 ':INT32)
                              (INFO-REF16584 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16569 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16570 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16572 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16574 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16577 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16579 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16584 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16571 A) (AF-REF16573 AF)
                                            (IPIV-REF16575 IPIV) (B-REF16576 B)
                                            (X-REF16578 X) (FERR-REF16580 FERR)
                                            (BERR-REF16581 BERR)
                                            (WORK-REF16582 WORK)
                                            (IWORK-REF16583 IWORK))
      (%%SSYRFS UPLO N-REF16569 NRHS-REF16570 A-REF16571 LDA-REF16572
       AF-REF16573 LDAF-REF16574 IPIV-REF16575 B-REF16576 LDB-REF16577
       X-REF16578 LDX-REF16579 FERR-REF16580 BERR-REF16581 WORK-REF16582
       IWORK-REF16583 INFO-REF16584))))

(CFFI:DEFCFUN ("ssyrfsx_" %%SSYRFSX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYRFSX
                   (UPLO EQUED N NRHS A LDA AF LDAF IPIV S B LDB X LDX RCOND
                    BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
                    WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYRFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16587 ':INT32) (NRHS-REF16588 ':INT32)
                              (LDA-REF16590 ':INT32) (LDAF-REF16592 ':INT32)
                              (LDB-REF16596 ':INT32) (LDX-REF16598 ':INT32)
                              (RCOND-REF16599 ':FLOAT)
                              (N_ERR_BNDS-REF16601 ':INT32)
                              (NPARAMS-REF16604 ':INT32)
                              (INFO-REF16608 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16587 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16588 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16590 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16592 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16596 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16598 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16599 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF16601 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF16604 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16608 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16589 A) (AF-REF16591 AF)
                                            (IPIV-REF16593 IPIV) (S-REF16594 S)
                                            (B-REF16595 B) (X-REF16597 X)
                                            (BERR-REF16600 BERR)
                                            (ERR_BNDS_NORM-REF16602
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF16603
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF16605 PARAMS)
                                            (WORK-REF16606 WORK)
                                            (IWORK-REF16607 IWORK))
      (%%SSYRFSX UPLO EQUED N-REF16587 NRHS-REF16588 A-REF16589 LDA-REF16590
       AF-REF16591 LDAF-REF16592 IPIV-REF16593 S-REF16594 B-REF16595
       LDB-REF16596 X-REF16597 LDX-REF16598 RCOND-REF16599 BERR-REF16600
       N_ERR_BNDS-REF16601 ERR_BNDS_NORM-REF16602 ERR_BNDS_COMP-REF16603
       NPARAMS-REF16604 PARAMS-REF16605 WORK-REF16606 IWORK-REF16607
       INFO-REF16608))))

(CFFI:DEFCFUN ("ssysv_" %%SSYSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYSV (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16610 ':INT32) (NRHS-REF16611 ':INT32)
                              (LDA-REF16613 ':INT32) (LDB-REF16616 ':INT32)
                              (LWORK-REF16618 ':INT32) (INFO-REF16619 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16610 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16611 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16613 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16616 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16618 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16619 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16612 A) (IPIV-REF16614 IPIV)
                                            (B-REF16615 B) (WORK-REF16617 WORK))
      (%%SSYSV UPLO N-REF16610 NRHS-REF16611 A-REF16612 LDA-REF16613
       IPIV-REF16614 B-REF16615 LDB-REF16616 WORK-REF16617 LWORK-REF16618
       INFO-REF16619))))

(CFFI:DEFCFUN ("ssysv_aa_" %%SSYSV_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYSV_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYSV_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16621 ':INT32) (NRHS-REF16622 ':INT32)
                              (LDA-REF16624 ':INT32) (LDB-REF16627 ':INT32)
                              (LWORK-REF16629 ':INT32) (INFO-REF16630 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16621 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16622 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16624 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16627 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16629 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16630 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16623 A) (IPIV-REF16625 IPIV)
                                            (B-REF16626 B) (WORK-REF16628 WORK))
      (%%SSYSV_AA UPLO N-REF16621 NRHS-REF16622 A-REF16623 LDA-REF16624
       IPIV-REF16625 B-REF16626 LDB-REF16627 WORK-REF16628 LWORK-REF16629
       INFO-REF16630))))

(CFFI:DEFCFUN ("ssysv_aa_2stage_" %%SSYSV_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYSV_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYSV_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16632 ':INT32) (NRHS-REF16633 ':INT32)
                              (LDA-REF16635 ':INT32) (LTB-REF16637 ':INT32)
                              (LDB-REF16641 ':INT32) (LWORK-REF16643 ':INT32)
                              (INFO-REF16644 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16632 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16633 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16635 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF16637 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16641 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16643 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16644 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16634 A) (TB-REF16636 TB)
                                            (IPIV-REF16638 IPIV)
                                            (IPIV2-REF16639 IPIV2)
                                            (B-REF16640 B) (WORK-REF16642 WORK))
      (%%SSYSV_AA_2STAGE UPLO N-REF16632 NRHS-REF16633 A-REF16634 LDA-REF16635
       TB-REF16636 LTB-REF16637 IPIV-REF16638 IPIV2-REF16639 B-REF16640
       LDB-REF16641 WORK-REF16642 LWORK-REF16643 INFO-REF16644))))

(CFFI:DEFCFUN ("ssysv_rk_" %%SSYSV_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYSV_RK (UPLO N NRHS A LDA E IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYSV_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16646 ':INT32) (NRHS-REF16647 ':INT32)
                              (LDA-REF16649 ':INT32) (LDB-REF16653 ':INT32)
                              (LWORK-REF16655 ':INT32) (INFO-REF16656 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16646 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16647 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16649 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16653 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16655 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16656 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16648 A) (E-REF16650 E)
                                            (IPIV-REF16651 IPIV) (B-REF16652 B)
                                            (WORK-REF16654 WORK))
      (%%SSYSV_RK UPLO N-REF16646 NRHS-REF16647 A-REF16648 LDA-REF16649
       E-REF16650 IPIV-REF16651 B-REF16652 LDB-REF16653 WORK-REF16654
       LWORK-REF16655 INFO-REF16656))))

(CFFI:DEFCFUN ("ssysv_rook_" %%SSYSV_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYSV_ROOK (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYSV_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16658 ':INT32) (NRHS-REF16659 ':INT32)
                              (LDA-REF16661 ':INT32) (LDB-REF16664 ':INT32)
                              (LWORK-REF16666 ':INT32) (INFO-REF16667 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16658 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16659 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16661 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16664 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16666 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16667 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16660 A) (IPIV-REF16662 IPIV)
                                            (B-REF16663 B) (WORK-REF16665 WORK))
      (%%SSYSV_ROOK UPLO N-REF16658 NRHS-REF16659 A-REF16660 LDA-REF16661
       IPIV-REF16662 B-REF16663 LDB-REF16664 WORK-REF16665 LWORK-REF16666
       INFO-REF16667))))

(CFFI:DEFCFUN ("ssysvx_" %%SSYSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYSVX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX RCOND FERR
                    BERR WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16670 ':INT32) (NRHS-REF16671 ':INT32)
                              (LDA-REF16673 ':INT32) (LDAF-REF16675 ':INT32)
                              (LDB-REF16678 ':INT32) (LDX-REF16680 ':INT32)
                              (RCOND-REF16681 ':FLOAT) (LWORK-REF16685 ':INT32)
                              (INFO-REF16687 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16670 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16671 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16673 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16675 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16678 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16680 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16681 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16685 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16687 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16672 A) (AF-REF16674 AF)
                                            (IPIV-REF16676 IPIV) (B-REF16677 B)
                                            (X-REF16679 X) (FERR-REF16682 FERR)
                                            (BERR-REF16683 BERR)
                                            (WORK-REF16684 WORK)
                                            (IWORK-REF16686 IWORK))
      (%%SSYSVX FACT UPLO N-REF16670 NRHS-REF16671 A-REF16672 LDA-REF16673
       AF-REF16674 LDAF-REF16675 IPIV-REF16676 B-REF16677 LDB-REF16678
       X-REF16679 LDX-REF16680 RCOND-REF16681 FERR-REF16682 BERR-REF16683
       WORK-REF16684 LWORK-REF16685 IWORK-REF16686 INFO-REF16687))))

(CFFI:DEFCFUN ("ssysvxx_" %%SSYSVXX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYSVXX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV EQUED S B LDB X LDX
                    RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16690 ':INT32) (NRHS-REF16691 ':INT32)
                              (LDA-REF16693 ':INT32) (LDAF-REF16695 ':INT32)
                              (LDB-REF16700 ':INT32) (LDX-REF16702 ':INT32)
                              (RCOND-REF16703 ':FLOAT)
                              (RPVGRW-REF16704 ':FLOAT)
                              (N_ERR_BNDS-REF16706 ':INT32)
                              (NPARAMS-REF16709 ':INT32)
                              (INFO-REF16713 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16690 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16691 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16693 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16695 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16700 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16702 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16703 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF16704 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF16706 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF16709 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16713 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16692 A) (AF-REF16694 AF)
                                            (IPIV-REF16696 IPIV) (S-REF16698 S)
                                            (B-REF16699 B) (X-REF16701 X)
                                            (BERR-REF16705 BERR)
                                            (ERR_BNDS_NORM-REF16707
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF16708
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF16710 PARAMS)
                                            (WORK-REF16711 WORK)
                                            (IWORK-REF16712 IWORK))
      (%%SSYSVXX FACT UPLO N-REF16690 NRHS-REF16691 A-REF16692 LDA-REF16693
       AF-REF16694 LDAF-REF16695 IPIV-REF16696 EQUED S-REF16698 B-REF16699
       LDB-REF16700 X-REF16701 LDX-REF16702 RCOND-REF16703 RPVGRW-REF16704
       BERR-REF16705 N_ERR_BNDS-REF16706 ERR_BNDS_NORM-REF16707
       ERR_BNDS_COMP-REF16708 NPARAMS-REF16709 PARAMS-REF16710 WORK-REF16711
       IWORK-REF16712 INFO-REF16713))))

(CFFI:DEFCFUN ("ssyswapr_" %%SSYSWAPR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (I1 :POINTER)
  (I2 :POINTER))

(COMMON-LISP:DEFUN %SSYSWAPR (UPLO N A LDA I1 I2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYSWAPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16715 ':INT32) (LDA-REF16717 ':INT32)
                              (I1-REF16718 ':INT32) (I2-REF16719 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16715 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16717 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF16718 :INT32) I1)
    (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF16719 :INT32) I2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16716 A))
      (%%SSYSWAPR UPLO N-REF16715 A-REF16716 LDA-REF16717 I1-REF16718
       I2-REF16719))))

(CFFI:DEFCFUN ("ssytd2_" %%SSYTD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTD2 (UPLO N A LDA D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTD2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16721 ':INT32) (LDA-REF16723 ':INT32)
                              (INFO-REF16727 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16721 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16723 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16727 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16722 A) (D-REF16724 D)
                                            (E-REF16725 E) (TAU-REF16726 TAU))
      (%%SSYTD2 UPLO N-REF16721 A-REF16722 LDA-REF16723 D-REF16724 E-REF16725
       TAU-REF16726 INFO-REF16727))))

(CFFI:DEFCFUN ("ssytf2_" %%SSYTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTF2 (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16729 ':INT32) (LDA-REF16731 ':INT32)
                              (INFO-REF16733 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16729 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16731 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16733 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16730 A) (IPIV-REF16732 IPIV))
      (%%SSYTF2 UPLO N-REF16729 A-REF16730 LDA-REF16731 IPIV-REF16732
       INFO-REF16733))))

(CFFI:DEFCFUN ("ssytf2_rk_" %%SSYTF2_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTF2_RK (UPLO N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTF2_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16735 ':INT32) (LDA-REF16737 ':INT32)
                              (INFO-REF16740 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16735 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16737 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16740 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16736 A) (E-REF16738 E)
                                            (IPIV-REF16739 IPIV))
      (%%SSYTF2_RK UPLO N-REF16735 A-REF16736 LDA-REF16737 E-REF16738
       IPIV-REF16739 INFO-REF16740))))

(CFFI:DEFCFUN ("ssytf2_rook_" %%SSYTF2_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTF2_ROOK (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTF2_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16742 ':INT32) (LDA-REF16744 ':INT32)
                              (INFO-REF16746 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16742 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16744 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16746 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16743 A) (IPIV-REF16745 IPIV))
      (%%SSYTF2_ROOK UPLO N-REF16742 A-REF16743 LDA-REF16744 IPIV-REF16745
       INFO-REF16746))))

(CFFI:DEFCFUN ("ssytrd_" %%SSYTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRD (UPLO N A LDA D E TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16748 ':INT32) (LDA-REF16750 ':INT32)
                              (LWORK-REF16755 ':INT32) (INFO-REF16756 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16748 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16750 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16755 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16756 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16749 A) (D-REF16751 D)
                                            (E-REF16752 E) (TAU-REF16753 TAU)
                                            (WORK-REF16754 WORK))
      (%%SSYTRD UPLO N-REF16748 A-REF16749 LDA-REF16750 D-REF16751 E-REF16752
       TAU-REF16753 WORK-REF16754 LWORK-REF16755 INFO-REF16756))))

(CFFI:DEFCFUN ("ssytrd_2stage_" %%SSYTRD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (HOUS2 :POINTER)
  (LHOUS2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRD_2STAGE
                   (VECT UPLO N A LDA D E TAU HOUS2 LHOUS2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        HOUS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LHOUS2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16759 ':INT32) (LDA-REF16761 ':INT32)
                              (LHOUS2-REF16766 ':INT32)
                              (LWORK-REF16768 ':INT32) (INFO-REF16769 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16759 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16761 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LHOUS2-REF16766 :INT32) LHOUS2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16768 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16769 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16760 A) (D-REF16762 D)
                                            (E-REF16763 E) (TAU-REF16764 TAU)
                                            (HOUS2-REF16765 HOUS2)
                                            (WORK-REF16767 WORK))
      (%%SSYTRD_2STAGE VECT UPLO N-REF16759 A-REF16760 LDA-REF16761 D-REF16762
       E-REF16763 TAU-REF16764 HOUS2-REF16765 LHOUS2-REF16766 WORK-REF16767
       LWORK-REF16768 INFO-REF16769))))

(CFFI:DEFCFUN ("ssytrd_sy2sb_" %%SSYTRD_SY2SB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRD_SY2SB (UPLO N KD A LDA AB LDAB TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRD_SY2SB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16771 ':INT32) (KD-REF16772 ':INT32)
                              (LDA-REF16774 ':INT32) (LDAB-REF16776 ':INT32)
                              (LWORK-REF16779 ':INT32) (INFO-REF16780 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16771 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF16772 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16774 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF16776 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16779 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16780 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16773 A) (AB-REF16775 AB)
                                            (TAU-REF16777 TAU)
                                            (WORK-REF16778 WORK))
      (%%SSYTRD_SY2SB UPLO N-REF16771 KD-REF16772 A-REF16773 LDA-REF16774
       AB-REF16775 LDAB-REF16776 TAU-REF16777 WORK-REF16778 LWORK-REF16779
       INFO-REF16780))))

(CFFI:DEFCFUN ("ssytrf_" %%SSYTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRF (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16782 ':INT32) (LDA-REF16784 ':INT32)
                              (LWORK-REF16787 ':INT32) (INFO-REF16788 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16782 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16784 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16787 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16788 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16783 A) (IPIV-REF16785 IPIV)
                                            (WORK-REF16786 WORK))
      (%%SSYTRF UPLO N-REF16782 A-REF16783 LDA-REF16784 IPIV-REF16785
       WORK-REF16786 LWORK-REF16787 INFO-REF16788))))

(CFFI:DEFCFUN ("ssytrf_aa_" %%SSYTRF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRF_AA (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16790 ':INT32) (LDA-REF16792 ':INT32)
                              (LWORK-REF16795 ':INT32) (INFO-REF16796 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16790 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16792 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16795 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16796 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16791 A) (IPIV-REF16793 IPIV)
                                            (WORK-REF16794 WORK))
      (%%SSYTRF_AA UPLO N-REF16790 A-REF16791 LDA-REF16792 IPIV-REF16793
       WORK-REF16794 LWORK-REF16795 INFO-REF16796))))

(CFFI:DEFCFUN ("ssytrf_aa_2stage_" %%SSYTRF_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRF_AA_2STAGE
                   (UPLO N A LDA TB LTB IPIV IPIV2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRF_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16798 ':INT32) (LDA-REF16800 ':INT32)
                              (LTB-REF16802 ':INT32) (LWORK-REF16806 ':INT32)
                              (INFO-REF16807 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16798 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16800 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF16802 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16806 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16807 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16799 A) (TB-REF16801 TB)
                                            (IPIV-REF16803 IPIV)
                                            (IPIV2-REF16804 IPIV2)
                                            (WORK-REF16805 WORK))
      (%%SSYTRF_AA_2STAGE UPLO N-REF16798 A-REF16799 LDA-REF16800 TB-REF16801
       LTB-REF16802 IPIV-REF16803 IPIV2-REF16804 WORK-REF16805 LWORK-REF16806
       INFO-REF16807))))

(CFFI:DEFCFUN ("ssytrf_rk_" %%SSYTRF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRF_RK (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16809 ':INT32) (LDA-REF16811 ':INT32)
                              (LWORK-REF16815 ':INT32) (INFO-REF16816 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16809 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16811 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16815 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16816 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16810 A) (E-REF16812 E)
                                            (IPIV-REF16813 IPIV)
                                            (WORK-REF16814 WORK))
      (%%SSYTRF_RK UPLO N-REF16809 A-REF16810 LDA-REF16811 E-REF16812
       IPIV-REF16813 WORK-REF16814 LWORK-REF16815 INFO-REF16816))))

(CFFI:DEFCFUN ("ssytrf_rook_" %%SSYTRF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRF_ROOK (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16818 ':INT32) (LDA-REF16820 ':INT32)
                              (LWORK-REF16823 ':INT32) (INFO-REF16824 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16818 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16820 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16823 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16824 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16819 A) (IPIV-REF16821 IPIV)
                                            (WORK-REF16822 WORK))
      (%%SSYTRF_ROOK UPLO N-REF16818 A-REF16819 LDA-REF16820 IPIV-REF16821
       WORK-REF16822 LWORK-REF16823 INFO-REF16824))))

(CFFI:DEFCFUN ("ssytri_" %%SSYTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRI (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16826 ':INT32) (LDA-REF16828 ':INT32)
                              (INFO-REF16831 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16826 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16828 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16831 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16827 A) (IPIV-REF16829 IPIV)
                                            (WORK-REF16830 WORK))
      (%%SSYTRI UPLO N-REF16826 A-REF16827 LDA-REF16828 IPIV-REF16829
       WORK-REF16830 INFO-REF16831))))

(CFFI:DEFCFUN ("ssytri2_" %%SSYTRI2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRI2 (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRI2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16833 ':INT32) (LDA-REF16835 ':INT32)
                              (LWORK-REF16838 ':INT32) (INFO-REF16839 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16833 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16835 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16838 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16839 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16834 A) (IPIV-REF16836 IPIV)
                                            (WORK-REF16837 WORK))
      (%%SSYTRI2 UPLO N-REF16833 A-REF16834 LDA-REF16835 IPIV-REF16836
       WORK-REF16837 LWORK-REF16838 INFO-REF16839))))

(CFFI:DEFCFUN ("ssytri2x_" %%SSYTRI2X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRI2X (UPLO N A LDA IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRI2X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16841 ':INT32) (LDA-REF16843 ':INT32)
                              (NB-REF16846 ':INT32) (INFO-REF16847 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16841 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16843 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF16846 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16847 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16842 A) (IPIV-REF16844 IPIV)
                                            (WORK-REF16845 WORK))
      (%%SSYTRI2X UPLO N-REF16841 A-REF16842 LDA-REF16843 IPIV-REF16844
       WORK-REF16845 NB-REF16846 INFO-REF16847))))

(CFFI:DEFCFUN ("ssytri_3_" %%SSYTRI_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRI_3 (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRI_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16849 ':INT32) (LDA-REF16851 ':INT32)
                              (LWORK-REF16855 ':INT32) (INFO-REF16856 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16849 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16851 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16855 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16856 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16850 A) (E-REF16852 E)
                                            (IPIV-REF16853 IPIV)
                                            (WORK-REF16854 WORK))
      (%%SSYTRI_3 UPLO N-REF16849 A-REF16850 LDA-REF16851 E-REF16852
       IPIV-REF16853 WORK-REF16854 LWORK-REF16855 INFO-REF16856))))

(CFFI:DEFCFUN ("ssytri_3x_" %%SSYTRI_3X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRI_3X (UPLO N A LDA E IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRI_3X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16858 ':INT32) (LDA-REF16860 ':INT32)
                              (NB-REF16864 ':INT32) (INFO-REF16865 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16858 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16860 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF16864 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16865 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16859 A) (E-REF16861 E)
                                            (IPIV-REF16862 IPIV)
                                            (WORK-REF16863 WORK))
      (%%SSYTRI_3X UPLO N-REF16858 A-REF16859 LDA-REF16860 E-REF16861
       IPIV-REF16862 WORK-REF16863 NB-REF16864 INFO-REF16865))))

(CFFI:DEFCFUN ("ssytri_rook_" %%SSYTRI_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRI_ROOK (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRI_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16867 ':INT32) (LDA-REF16869 ':INT32)
                              (INFO-REF16872 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16867 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16869 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16872 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16868 A) (IPIV-REF16870 IPIV)
                                            (WORK-REF16871 WORK))
      (%%SSYTRI_ROOK UPLO N-REF16867 A-REF16868 LDA-REF16869 IPIV-REF16870
       WORK-REF16871 INFO-REF16872))))

(CFFI:DEFCFUN ("ssytrs_" %%SSYTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRS (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16874 ':INT32) (NRHS-REF16875 ':INT32)
                              (LDA-REF16877 ':INT32) (LDB-REF16880 ':INT32)
                              (INFO-REF16881 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16874 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16875 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16877 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16880 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16881 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16876 A) (IPIV-REF16878 IPIV)
                                            (B-REF16879 B))
      (%%SSYTRS UPLO N-REF16874 NRHS-REF16875 A-REF16876 LDA-REF16877
       IPIV-REF16878 B-REF16879 LDB-REF16880 INFO-REF16881))))

(CFFI:DEFCFUN ("ssytrs2_" %%SSYTRS2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRS2 (UPLO N NRHS A LDA IPIV B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRS2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16883 ':INT32) (NRHS-REF16884 ':INT32)
                              (LDA-REF16886 ':INT32) (LDB-REF16889 ':INT32)
                              (INFO-REF16891 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16883 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16884 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16886 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16889 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16891 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16885 A) (IPIV-REF16887 IPIV)
                                            (B-REF16888 B) (WORK-REF16890 WORK))
      (%%SSYTRS2 UPLO N-REF16883 NRHS-REF16884 A-REF16885 LDA-REF16886
       IPIV-REF16887 B-REF16888 LDB-REF16889 WORK-REF16890 INFO-REF16891))))

(CFFI:DEFCFUN ("ssytrs_3_" %%SSYTRS_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRS_3 (UPLO N NRHS A LDA E IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRS_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16893 ':INT32) (NRHS-REF16894 ':INT32)
                              (LDA-REF16896 ':INT32) (LDB-REF16900 ':INT32)
                              (INFO-REF16901 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16893 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16894 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16896 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16900 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16901 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16895 A) (E-REF16897 E)
                                            (IPIV-REF16898 IPIV) (B-REF16899 B))
      (%%SSYTRS_3 UPLO N-REF16893 NRHS-REF16894 A-REF16895 LDA-REF16896
       E-REF16897 IPIV-REF16898 B-REF16899 LDB-REF16900 INFO-REF16901))))

(CFFI:DEFCFUN ("ssytrs_aa_" %%SSYTRS_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRS_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRS_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16903 ':INT32) (NRHS-REF16904 ':INT32)
                              (LDA-REF16906 ':INT32) (LDB-REF16909 ':INT32)
                              (LWORK-REF16911 ':INT32) (INFO-REF16912 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16903 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16904 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16906 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16909 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16911 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16912 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16905 A) (IPIV-REF16907 IPIV)
                                            (B-REF16908 B) (WORK-REF16910 WORK))
      (%%SSYTRS_AA UPLO N-REF16903 NRHS-REF16904 A-REF16905 LDA-REF16906
       IPIV-REF16907 B-REF16908 LDB-REF16909 WORK-REF16910 LWORK-REF16911
       INFO-REF16912))))

(CFFI:DEFCFUN ("ssytrs_aa_2stage_" %%SSYTRS_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRS_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRS_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16914 ':INT32) (NRHS-REF16915 ':INT32)
                              (LDA-REF16917 ':INT32) (LTB-REF16919 ':INT32)
                              (LDB-REF16923 ':INT32) (INFO-REF16924 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16914 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16915 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16917 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF16919 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16923 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16924 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16916 A) (TB-REF16918 TB)
                                            (IPIV-REF16920 IPIV)
                                            (IPIV2-REF16921 IPIV2)
                                            (B-REF16922 B))
      (%%SSYTRS_AA_2STAGE UPLO N-REF16914 NRHS-REF16915 A-REF16916 LDA-REF16917
       TB-REF16918 LTB-REF16919 IPIV-REF16920 IPIV2-REF16921 B-REF16922
       LDB-REF16923 INFO-REF16924))))

(CFFI:DEFCFUN ("ssytrs_rook_" %%SSYTRS_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRS_ROOK (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRS_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16926 ':INT32) (NRHS-REF16927 ':INT32)
                              (LDA-REF16929 ':INT32) (LDB-REF16932 ':INT32)
                              (INFO-REF16933 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16926 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16927 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16929 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16932 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16933 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16928 A) (IPIV-REF16930 IPIV)
                                            (B-REF16931 B))
      (%%SSYTRS_ROOK UPLO N-REF16926 NRHS-REF16927 A-REF16928 LDA-REF16929
       IPIV-REF16930 B-REF16931 LDB-REF16932 INFO-REF16933))))

(CFFI:DEFCFUN ("stbcon_" %%STBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STBCON (NORM UPLO DIAG N KD AB LDAB RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16937 ':INT32) (KD-REF16938 ':INT32)
                              (LDAB-REF16940 ':INT32) (RCOND-REF16941 ':FLOAT)
                              (INFO-REF16944 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16937 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF16938 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF16940 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16941 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16944 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF16939 AB)
                                            (WORK-REF16942 WORK)
                                            (IWORK-REF16943 IWORK))
      (%%STBCON NORM UPLO DIAG N-REF16937 KD-REF16938 AB-REF16939 LDAB-REF16940
       RCOND-REF16941 WORK-REF16942 IWORK-REF16943 INFO-REF16944))))

(CFFI:DEFCFUN ("stbrfs_" %%STBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STBRFS
                   (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB X LDX FERR BERR
                    WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16948 ':INT32) (KD-REF16949 ':INT32)
                              (NRHS-REF16950 ':INT32) (LDAB-REF16952 ':INT32)
                              (LDB-REF16954 ':INT32) (LDX-REF16956 ':INT32)
                              (INFO-REF16961 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16948 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF16949 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16950 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF16952 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16954 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16956 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16961 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF16951 AB) (B-REF16953 B)
                                            (X-REF16955 X) (FERR-REF16957 FERR)
                                            (BERR-REF16958 BERR)
                                            (WORK-REF16959 WORK)
                                            (IWORK-REF16960 IWORK))
      (%%STBRFS UPLO TRANS DIAG N-REF16948 KD-REF16949 NRHS-REF16950
       AB-REF16951 LDAB-REF16952 B-REF16953 LDB-REF16954 X-REF16955
       LDX-REF16956 FERR-REF16957 BERR-REF16958 WORK-REF16959 IWORK-REF16960
       INFO-REF16961))))

(CFFI:DEFCFUN ("stbtrs_" %%STBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STBTRS (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16965 ':INT32) (KD-REF16966 ':INT32)
                              (NRHS-REF16967 ':INT32) (LDAB-REF16969 ':INT32)
                              (LDB-REF16971 ':INT32) (INFO-REF16972 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16965 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF16966 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16967 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF16969 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16971 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16972 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF16968 AB) (B-REF16970 B))
      (%%STBTRS UPLO TRANS DIAG N-REF16965 KD-REF16966 NRHS-REF16967
       AB-REF16968 LDAB-REF16969 B-REF16970 LDB-REF16971 INFO-REF16972))))

(CFFI:DEFCFUN ("stfsm_" %%STFSM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %STFSM (TRANSR SIDE UPLO TRANS DIAG M N ALPHA A B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STFSM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF16978 ':INT32) (N-REF16979 ':INT32)
                              (ALPHA-REF16980 ':FLOAT) (LDB-REF16983 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16978 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16979 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF16980 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16983 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16981 A) (B-REF16982 B))
      (%%STFSM TRANSR SIDE UPLO TRANS DIAG M-REF16978 N-REF16979 ALPHA-REF16980
       A-REF16981 B-REF16982 LDB-REF16983))))

(CFFI:DEFCFUN ("stftri_" %%STFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STFTRI (TRANSR UPLO DIAG N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STFTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16987 ':INT32) (INFO-REF16989 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16987 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16989 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16988 A))
      (%%STFTRI TRANSR UPLO DIAG N-REF16987 A-REF16988 INFO-REF16989))))

(CFFI:DEFCFUN ("stfttp_" %%STFTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (ARF :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STFTTP (TRANSR UPLO N ARF AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STFTTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ARF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16992 ':INT32) (INFO-REF16995 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16992 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16995 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF16993 ARF) (AP-REF16994 AP))
      (%%STFTTP TRANSR UPLO N-REF16992 ARF-REF16993 AP-REF16994
       INFO-REF16995))))

(CFFI:DEFCFUN ("stfttr_" %%STFTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (ARF :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STFTTR (TRANSR UPLO N ARF A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STFTTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ARF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16998 ':INT32) (LDA-REF17001 ':INT32)
                              (INFO-REF17002 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16998 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17001 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17002 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF16999 ARF) (A-REF17000 A))
      (%%STFTTR TRANSR UPLO N-REF16998 ARF-REF16999 A-REF17000 LDA-REF17001
       INFO-REF17002))))

(CFFI:DEFCFUN ("stgevc_" %%STGEVC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (S :POINTER)
  (LDS :POINTER)
  (P :POINTER)
  (LDP :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STGEVC
                   (SIDE HOWMNY SELECT N S LDS P LDP VL LDVL VR LDVR MM M WORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGEVC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17006 ':INT32) (LDS-REF17008 ':INT32)
                              (LDP-REF17010 ':INT32) (LDVL-REF17012 ':INT32)
                              (LDVR-REF17014 ':INT32) (MM-REF17015 ':INT32)
                              (M-REF17016 ':INT32) (INFO-REF17018 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17006 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF17008 :INT32) LDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDP-REF17010 :INT32) LDP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17012 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17014 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF17015 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17016 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17018 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17005 SELECT)
                                            (S-REF17007 S) (P-REF17009 P)
                                            (VL-REF17011 VL) (VR-REF17013 VR)
                                            (WORK-REF17017 WORK))
      (%%STGEVC SIDE HOWMNY SELECT-REF17005 N-REF17006 S-REF17007 LDS-REF17008
       P-REF17009 LDP-REF17010 VL-REF17011 LDVL-REF17012 VR-REF17013
       LDVR-REF17014 MM-REF17015 M-REF17016 WORK-REF17017 INFO-REF17018))))

(CFFI:DEFCFUN ("stgex2_" %%STGEX2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (J1 :POINTER)
  (N1 :POINTER)
  (N2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STGEX2
                   (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ J1 N1 N2 WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGEX2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF17019 ':INT32) (WANTZ-REF17020 ':INT32)
                              (N-REF17021 ':INT32) (LDA-REF17023 ':INT32)
                              (LDB-REF17025 ':INT32) (LDQ-REF17027 ':INT32)
                              (LDZ-REF17029 ':INT32) (J1-REF17030 ':INT32)
                              (N1-REF17031 ':INT32) (N2-REF17032 ':INT32)
                              (LWORK-REF17034 ':INT32) (INFO-REF17035 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF17019 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF17020 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17021 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17023 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17025 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17027 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF17029 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF17030 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF17031 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF17032 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17034 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17035 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17022 A) (B-REF17024 B)
                                            (Q-REF17026 Q) (Z-REF17028 Z)
                                            (WORK-REF17033 WORK))
      (%%STGEX2 WANTQ-REF17019 WANTZ-REF17020 N-REF17021 A-REF17022
       LDA-REF17023 B-REF17024 LDB-REF17025 Q-REF17026 LDQ-REF17027 Z-REF17028
       LDZ-REF17029 J1-REF17030 N1-REF17031 N2-REF17032 WORK-REF17033
       LWORK-REF17034 INFO-REF17035))))

(CFFI:DEFCFUN ("stgexc_" %%STGEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (IFST :POINTER)
  (ILST :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STGEXC
                   (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ IFST ILST WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGEXC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF17036 ':INT32) (WANTZ-REF17037 ':INT32)
                              (N-REF17038 ':INT32) (LDA-REF17040 ':INT32)
                              (LDB-REF17042 ':INT32) (LDQ-REF17044 ':INT32)
                              (LDZ-REF17046 ':INT32) (IFST-REF17047 ':INT32)
                              (ILST-REF17048 ':INT32) (LWORK-REF17050 ':INT32)
                              (INFO-REF17051 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF17036 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF17037 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17038 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17040 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17042 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17044 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF17046 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF17047 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF17048 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17050 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17051 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17039 A) (B-REF17041 B)
                                            (Q-REF17043 Q) (Z-REF17045 Z)
                                            (WORK-REF17049 WORK))
      (%%STGEXC WANTQ-REF17036 WANTZ-REF17037 N-REF17038 A-REF17039
       LDA-REF17040 B-REF17041 LDB-REF17042 Q-REF17043 LDQ-REF17044 Z-REF17045
       LDZ-REF17046 IFST-REF17047 ILST-REF17048 WORK-REF17049 LWORK-REF17050
       INFO-REF17051))))

(CFFI:DEFCFUN ("stgsen_" %%STGSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (IJOB :POINTER)
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (M :POINTER)
  (PL :POINTER)
  (PR :POINTER)
  (DIF :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STGSEN
                   (IJOB WANTQ WANTZ SELECT N A LDA B LDB ALPHAR ALPHAI BETA Q
                    LDQ Z LDZ M PL PR DIF WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGSEN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF17052 ':INT32) (WANTQ-REF17053 ':INT32)
                              (WANTZ-REF17054 ':INT32) (N-REF17056 ':INT32)
                              (LDA-REF17058 ':INT32) (LDB-REF17060 ':INT32)
                              (LDQ-REF17065 ':INT32) (LDZ-REF17067 ':INT32)
                              (M-REF17068 ':INT32) (PL-REF17069 ':FLOAT)
                              (PR-REF17070 ':FLOAT) (LWORK-REF17073 ':INT32)
                              (LIWORK-REF17075 ':INT32) (INFO-REF17076 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF17052 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF17053 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF17054 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17056 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17058 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17060 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17065 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF17067 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17068 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF PL-REF17069 :FLOAT) PL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PR-REF17070 :FLOAT) PR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17073 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF17075 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17076 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17055 SELECT)
                                            (A-REF17057 A) (B-REF17059 B)
                                            (ALPHAR-REF17061 ALPHAR)
                                            (ALPHAI-REF17062 ALPHAI)
                                            (BETA-REF17063 BETA) (Q-REF17064 Q)
                                            (Z-REF17066 Z) (DIF-REF17071 DIF)
                                            (WORK-REF17072 WORK)
                                            (IWORK-REF17074 IWORK))
      (%%STGSEN IJOB-REF17052 WANTQ-REF17053 WANTZ-REF17054 SELECT-REF17055
       N-REF17056 A-REF17057 LDA-REF17058 B-REF17059 LDB-REF17060
       ALPHAR-REF17061 ALPHAI-REF17062 BETA-REF17063 Q-REF17064 LDQ-REF17065
       Z-REF17066 LDZ-REF17067 M-REF17068 PL-REF17069 PR-REF17070 DIF-REF17071
       WORK-REF17072 LWORK-REF17073 IWORK-REF17074 LIWORK-REF17075
       INFO-REF17076))))

(CFFI:DEFCFUN ("stgsja_" %%STGSJA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TOLA :POINTER)
  (TOLB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (NCYCLE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STGSJA
                   (JOBU JOBV JOBQ M P N K L A LDA B LDB TOLA TOLB ALPHA BETA U
                    LDU V LDV Q LDQ WORK NCYCLE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGSJA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOLA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOLB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCYCLE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17080 ':INT32) (P-REF17081 ':INT32)
                              (N-REF17082 ':INT32) (K-REF17083 ':INT32)
                              (L-REF17084 ':INT32) (LDA-REF17086 ':INT32)
                              (LDB-REF17088 ':INT32) (TOLA-REF17089 ':FLOAT)
                              (TOLB-REF17090 ':FLOAT) (LDU-REF17094 ':INT32)
                              (LDV-REF17096 ':INT32) (LDQ-REF17098 ':INT32)
                              (NCYCLE-REF17100 ':INT32) (INFO-REF17101 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17080 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF17081 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17082 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17083 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17084 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17086 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17088 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF17089 :FLOAT) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF17090 :FLOAT) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF17094 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17096 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17098 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCYCLE-REF17100 :INT32) NCYCLE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17101 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17085 A) (B-REF17087 B)
                                            (ALPHA-REF17091 ALPHA)
                                            (BETA-REF17092 BETA) (U-REF17093 U)
                                            (V-REF17095 V) (Q-REF17097 Q)
                                            (WORK-REF17099 WORK))
      (%%STGSJA JOBU JOBV JOBQ M-REF17080 P-REF17081 N-REF17082 K-REF17083
       L-REF17084 A-REF17085 LDA-REF17086 B-REF17087 LDB-REF17088 TOLA-REF17089
       TOLB-REF17090 ALPHA-REF17091 BETA-REF17092 U-REF17093 LDU-REF17094
       V-REF17095 LDV-REF17096 Q-REF17097 LDQ-REF17098 WORK-REF17099
       NCYCLE-REF17100 INFO-REF17101))))

(CFFI:DEFCFUN ("stgsna_" %%STGSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (S :POINTER)
  (DIF :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STGSNA
                   (JOB HOWMNY SELECT N A LDA B LDB VL LDVL VR LDVR S DIF MM M
                    WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGSNA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17105 ':INT32) (LDA-REF17107 ':INT32)
                              (LDB-REF17109 ':INT32) (LDVL-REF17111 ':INT32)
                              (LDVR-REF17113 ':INT32) (MM-REF17116 ':INT32)
                              (M-REF17117 ':INT32) (LWORK-REF17119 ':INT32)
                              (INFO-REF17121 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17105 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17107 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17109 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17111 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17113 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF17116 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17117 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17119 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17121 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17104 SELECT)
                                            (A-REF17106 A) (B-REF17108 B)
                                            (VL-REF17110 VL) (VR-REF17112 VR)
                                            (S-REF17114 S) (DIF-REF17115 DIF)
                                            (WORK-REF17118 WORK)
                                            (IWORK-REF17120 IWORK))
      (%%STGSNA JOB HOWMNY SELECT-REF17104 N-REF17105 A-REF17106 LDA-REF17107
       B-REF17108 LDB-REF17109 VL-REF17110 LDVL-REF17111 VR-REF17112
       LDVR-REF17113 S-REF17114 DIF-REF17115 MM-REF17116 M-REF17117
       WORK-REF17118 LWORK-REF17119 IWORK-REF17120 INFO-REF17121))))

(CFFI:DEFCFUN ("stgsy2_" %%STGSY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (IJOB :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (D :POINTER)
  (LDD :POINTER)
  (E :POINTER)
  (LDE :POINTER)
  (F :POINTER)
  (LDF :POINTER)
  (SCALE :POINTER)
  (RDSUM :POINTER)
  (RDSCAL :POINTER)
  (IWORK :POINTER)
  (PQ :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STGSY2
                   (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE
                    RDSUM RDSCAL IWORK PQ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGSY2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSUM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSCAL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF17123 ':INT32) (M-REF17124 ':INT32)
                              (N-REF17125 ':INT32) (LDA-REF17127 ':INT32)
                              (LDB-REF17129 ':INT32) (LDC-REF17131 ':INT32)
                              (LDD-REF17133 ':INT32) (LDE-REF17135 ':INT32)
                              (LDF-REF17137 ':INT32) (SCALE-REF17138 ':FLOAT)
                              (RDSUM-REF17139 ':FLOAT)
                              (RDSCAL-REF17140 ':FLOAT) (PQ-REF17142 ':INT32)
                              (INFO-REF17143 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF17123 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17124 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17125 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17127 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17129 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17131 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF17133 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF17135 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF17137 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF17138 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF17139 :FLOAT) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF17140 :FLOAT) RDSCAL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PQ-REF17142 :INT32) PQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17143 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17126 A) (B-REF17128 B)
                                            (C-REF17130 C) (D-REF17132 D)
                                            (E-REF17134 E) (F-REF17136 F)
                                            (IWORK-REF17141 IWORK))
      (%%STGSY2 TRANS IJOB-REF17123 M-REF17124 N-REF17125 A-REF17126
       LDA-REF17127 B-REF17128 LDB-REF17129 C-REF17130 LDC-REF17131 D-REF17132
       LDD-REF17133 E-REF17134 LDE-REF17135 F-REF17136 LDF-REF17137
       SCALE-REF17138 RDSUM-REF17139 RDSCAL-REF17140 IWORK-REF17141 PQ-REF17142
       INFO-REF17143))))

(CFFI:DEFCFUN ("stgsyl_" %%STGSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (IJOB :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (D :POINTER)
  (LDD :POINTER)
  (E :POINTER)
  (LDE :POINTER)
  (F :POINTER)
  (LDF :POINTER)
  (SCALE :POINTER)
  (DIF :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STGSYL
                   (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE
                    DIF WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGSYL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DIF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF17145 ':INT32) (M-REF17146 ':INT32)
                              (N-REF17147 ':INT32) (LDA-REF17149 ':INT32)
                              (LDB-REF17151 ':INT32) (LDC-REF17153 ':INT32)
                              (LDD-REF17155 ':INT32) (LDE-REF17157 ':INT32)
                              (LDF-REF17159 ':INT32) (SCALE-REF17160 ':FLOAT)
                              (DIF-REF17161 ':FLOAT) (LWORK-REF17163 ':INT32)
                              (INFO-REF17165 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF17145 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17146 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17147 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17149 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17151 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17153 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF17155 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF17157 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF17159 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF17160 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF DIF-REF17161 :FLOAT) DIF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17163 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17165 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17148 A) (B-REF17150 B)
                                            (C-REF17152 C) (D-REF17154 D)
                                            (E-REF17156 E) (F-REF17158 F)
                                            (WORK-REF17162 WORK)
                                            (IWORK-REF17164 IWORK))
      (%%STGSYL TRANS IJOB-REF17145 M-REF17146 N-REF17147 A-REF17148
       LDA-REF17149 B-REF17150 LDB-REF17151 C-REF17152 LDC-REF17153 D-REF17154
       LDD-REF17155 E-REF17156 LDE-REF17157 F-REF17158 LDF-REF17159
       SCALE-REF17160 DIF-REF17161 WORK-REF17162 LWORK-REF17163 IWORK-REF17164
       INFO-REF17165))))

(CFFI:DEFCFUN ("stpcon_" %%STPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPCON (NORM UPLO DIAG N AP RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17169 ':INT32) (RCOND-REF17171 ':FLOAT)
                              (INFO-REF17174 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17169 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17171 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17174 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17170 AP)
                                            (WORK-REF17172 WORK)
                                            (IWORK-REF17173 IWORK))
      (%%STPCON NORM UPLO DIAG N-REF17169 AP-REF17170 RCOND-REF17171
       WORK-REF17172 IWORK-REF17173 INFO-REF17174))))

(CFFI:DEFCFUN ("stplqt_" %%STPLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (MB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPLQT (M N L MB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPLQT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17175 ':INT32) (N-REF17176 ':INT32)
                              (L-REF17177 ':INT32) (MB-REF17178 ':INT32)
                              (LDA-REF17180 ':INT32) (LDB-REF17182 ':INT32)
                              (LDT-REF17184 ':INT32) (INFO-REF17186 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17175 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17176 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17177 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF17178 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17180 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17182 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17184 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17186 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17179 A) (B-REF17181 B)
                                            (T-REF17183 T) (WORK-REF17185 WORK))
      (%%STPLQT M-REF17175 N-REF17176 L-REF17177 MB-REF17178 A-REF17179
       LDA-REF17180 B-REF17181 LDB-REF17182 T-REF17183 LDT-REF17184
       WORK-REF17185 INFO-REF17186))))

(CFFI:DEFCFUN ("stplqt2_" %%STPLQT2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPLQT2 (M N L A LDA B LDB T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPLQT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17187 ':INT32) (N-REF17188 ':INT32)
                              (L-REF17189 ':INT32) (LDA-REF17191 ':INT32)
                              (LDB-REF17193 ':INT32) (LDT-REF17195 ':INT32)
                              (INFO-REF17196 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17187 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17188 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17189 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17191 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17193 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17195 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17196 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17190 A) (B-REF17192 B)
                                            (T-REF17194 T))
      (%%STPLQT2 M-REF17187 N-REF17188 L-REF17189 A-REF17190 LDA-REF17191
       B-REF17192 LDB-REF17193 T-REF17194 LDT-REF17195 INFO-REF17196))))

(CFFI:DEFCFUN ("stpmlqt_" %%STPMLQT :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (MB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPMLQT
                   (SIDE TRANS M N K L MB V LDV T LDT A LDA B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPMLQT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17199 ':INT32) (N-REF17200 ':INT32)
                              (K-REF17201 ':INT32) (L-REF17202 ':INT32)
                              (MB-REF17203 ':INT32) (LDV-REF17205 ':INT32)
                              (LDT-REF17207 ':INT32) (LDA-REF17209 ':INT32)
                              (LDB-REF17211 ':INT32) (INFO-REF17213 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17199 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17200 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17201 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17202 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF17203 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17205 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17207 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17209 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17211 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17213 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF17204 V) (T-REF17206 T)
                                            (A-REF17208 A) (B-REF17210 B)
                                            (WORK-REF17212 WORK))
      (%%STPMLQT SIDE TRANS M-REF17199 N-REF17200 K-REF17201 L-REF17202
       MB-REF17203 V-REF17204 LDV-REF17205 T-REF17206 LDT-REF17207 A-REF17208
       LDA-REF17209 B-REF17210 LDB-REF17211 WORK-REF17212 INFO-REF17213))))

(CFFI:DEFCFUN ("stpmqrt_" %%STPMQRT :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (NB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPMQRT
                   (SIDE TRANS M N K L NB V LDV T LDT A LDA B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPMQRT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17216 ':INT32) (N-REF17217 ':INT32)
                              (K-REF17218 ':INT32) (L-REF17219 ':INT32)
                              (NB-REF17220 ':INT32) (LDV-REF17222 ':INT32)
                              (LDT-REF17224 ':INT32) (LDA-REF17226 ':INT32)
                              (LDB-REF17228 ':INT32) (INFO-REF17230 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17216 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17217 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17218 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17219 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF17220 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17222 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17224 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17226 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17228 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17230 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF17221 V) (T-REF17223 T)
                                            (A-REF17225 A) (B-REF17227 B)
                                            (WORK-REF17229 WORK))
      (%%STPMQRT SIDE TRANS M-REF17216 N-REF17217 K-REF17218 L-REF17219
       NB-REF17220 V-REF17221 LDV-REF17222 T-REF17223 LDT-REF17224 A-REF17225
       LDA-REF17226 B-REF17227 LDB-REF17228 WORK-REF17229 INFO-REF17230))))

(CFFI:DEFCFUN ("stpqrt_" %%STPQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPQRT (M N L NB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPQRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17231 ':INT32) (N-REF17232 ':INT32)
                              (L-REF17233 ':INT32) (NB-REF17234 ':INT32)
                              (LDA-REF17236 ':INT32) (LDB-REF17238 ':INT32)
                              (LDT-REF17240 ':INT32) (INFO-REF17242 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17231 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17232 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17233 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF17234 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17236 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17238 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17240 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17242 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17235 A) (B-REF17237 B)
                                            (T-REF17239 T) (WORK-REF17241 WORK))
      (%%STPQRT M-REF17231 N-REF17232 L-REF17233 NB-REF17234 A-REF17235
       LDA-REF17236 B-REF17237 LDB-REF17238 T-REF17239 LDT-REF17240
       WORK-REF17241 INFO-REF17242))))

(CFFI:DEFCFUN ("stpqrt2_" %%STPQRT2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPQRT2 (M N L A LDA B LDB T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPQRT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17243 ':INT32) (N-REF17244 ':INT32)
                              (L-REF17245 ':INT32) (LDA-REF17247 ':INT32)
                              (LDB-REF17249 ':INT32) (LDT-REF17251 ':INT32)
                              (INFO-REF17252 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17243 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17244 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17245 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17247 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17249 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17251 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17252 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17246 A) (B-REF17248 B)
                                            (T-REF17250 T))
      (%%STPQRT2 M-REF17243 N-REF17244 L-REF17245 A-REF17246 LDA-REF17247
       B-REF17248 LDB-REF17249 T-REF17250 LDT-REF17251 INFO-REF17252))))

(CFFI:DEFCFUN ("stprfb_" %%STPRFB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %STPRFB
                   (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT A LDA B LDB
                    WORK LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPRFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17257 ':INT32) (N-REF17258 ':INT32)
                              (K-REF17259 ':INT32) (L-REF17260 ':INT32)
                              (LDV-REF17262 ':INT32) (LDT-REF17264 ':INT32)
                              (LDA-REF17266 ':INT32) (LDB-REF17268 ':INT32)
                              (LDWORK-REF17270 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17257 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17258 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17259 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17260 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17262 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17264 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17266 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17268 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF17270 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF17261 V) (T-REF17263 T)
                                            (A-REF17265 A) (B-REF17267 B)
                                            (WORK-REF17269 WORK))
      (%%STPRFB SIDE TRANS DIRECT STOREV M-REF17257 N-REF17258 K-REF17259
       L-REF17260 V-REF17261 LDV-REF17262 T-REF17263 LDT-REF17264 A-REF17265
       LDA-REF17266 B-REF17267 LDB-REF17268 WORK-REF17269 LDWORK-REF17270))))

(CFFI:DEFCFUN ("stprfs_" %%STPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPRFS
                   (UPLO TRANS DIAG N NRHS AP B LDB X LDX FERR BERR WORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17274 ':INT32) (NRHS-REF17275 ':INT32)
                              (LDB-REF17278 ':INT32) (LDX-REF17280 ':INT32)
                              (INFO-REF17285 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17274 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17275 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17278 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17280 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17285 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17276 AP) (B-REF17277 B)
                                            (X-REF17279 X) (FERR-REF17281 FERR)
                                            (BERR-REF17282 BERR)
                                            (WORK-REF17283 WORK)
                                            (IWORK-REF17284 IWORK))
      (%%STPRFS UPLO TRANS DIAG N-REF17274 NRHS-REF17275 AP-REF17276 B-REF17277
       LDB-REF17278 X-REF17279 LDX-REF17280 FERR-REF17281 BERR-REF17282
       WORK-REF17283 IWORK-REF17284 INFO-REF17285))))

(CFFI:DEFCFUN ("stptri_" %%STPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPTRI (UPLO DIAG N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17288 ':INT32) (INFO-REF17290 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17288 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17290 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17289 AP))
      (%%STPTRI UPLO DIAG N-REF17288 AP-REF17289 INFO-REF17290))))

(CFFI:DEFCFUN ("stptrs_" %%STPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPTRS (UPLO TRANS DIAG N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17294 ':INT32) (NRHS-REF17295 ':INT32)
                              (LDB-REF17298 ':INT32) (INFO-REF17299 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17294 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17295 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17298 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17299 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17296 AP) (B-REF17297 B))
      (%%STPTRS UPLO TRANS DIAG N-REF17294 NRHS-REF17295 AP-REF17296 B-REF17297
       LDB-REF17298 INFO-REF17299))))

(CFFI:DEFCFUN ("stpttf_" %%STPTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (ARF :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPTTF (TRANSR UPLO N AP ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPTTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ARF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17302 ':INT32) (INFO-REF17305 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17302 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17305 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17303 AP) (ARF-REF17304 ARF))
      (%%STPTTF TRANSR UPLO N-REF17302 AP-REF17303 ARF-REF17304
       INFO-REF17305))))

(CFFI:DEFCFUN ("stpttr_" %%STPTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPTTR (UPLO N AP A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPTTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17307 ':INT32) (LDA-REF17310 ':INT32)
                              (INFO-REF17311 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17307 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17310 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17311 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17308 AP) (A-REF17309 A))
      (%%STPTTR UPLO N-REF17307 AP-REF17308 A-REF17309 LDA-REF17310
       INFO-REF17311))))

(CFFI:DEFCFUN ("strcon_" %%STRCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STRCON (NORM UPLO DIAG N A LDA RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17315 ':INT32) (LDA-REF17317 ':INT32)
                              (RCOND-REF17318 ':FLOAT) (INFO-REF17321 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17315 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17317 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17318 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17321 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17316 A) (WORK-REF17319 WORK)
                                            (IWORK-REF17320 IWORK))
      (%%STRCON NORM UPLO DIAG N-REF17315 A-REF17316 LDA-REF17317
       RCOND-REF17318 WORK-REF17319 IWORK-REF17320 INFO-REF17321))))

(CFFI:DEFCFUN ("strevc_" %%STREVC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STREVC
                   (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STREVC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17325 ':INT32) (LDT-REF17327 ':INT32)
                              (LDVL-REF17329 ':INT32) (LDVR-REF17331 ':INT32)
                              (MM-REF17332 ':INT32) (M-REF17333 ':INT32)
                              (INFO-REF17335 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17325 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17327 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17329 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17331 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF17332 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17333 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17335 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17324 SELECT)
                                            (T-REF17326 T) (VL-REF17328 VL)
                                            (VR-REF17330 VR)
                                            (WORK-REF17334 WORK))
      (%%STREVC SIDE HOWMNY SELECT-REF17324 N-REF17325 T-REF17326 LDT-REF17327
       VL-REF17328 LDVL-REF17329 VR-REF17330 LDVR-REF17331 MM-REF17332
       M-REF17333 WORK-REF17334 INFO-REF17335))))

(CFFI:DEFCFUN ("strevc3_" %%STREVC3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STREVC3
                   (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STREVC3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17339 ':INT32) (LDT-REF17341 ':INT32)
                              (LDVL-REF17343 ':INT32) (LDVR-REF17345 ':INT32)
                              (MM-REF17346 ':INT32) (M-REF17347 ':INT32)
                              (LWORK-REF17349 ':INT32) (INFO-REF17350 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17339 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17341 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17343 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17345 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF17346 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17347 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17349 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17350 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17338 SELECT)
                                            (T-REF17340 T) (VL-REF17342 VL)
                                            (VR-REF17344 VR)
                                            (WORK-REF17348 WORK))
      (%%STREVC3 SIDE HOWMNY SELECT-REF17338 N-REF17339 T-REF17340 LDT-REF17341
       VL-REF17342 LDVL-REF17343 VR-REF17344 LDVR-REF17345 MM-REF17346
       M-REF17347 WORK-REF17348 LWORK-REF17349 INFO-REF17350))))

(CFFI:DEFCFUN ("strexc_" %%STREXC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (IFST :POINTER)
  (ILST :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STREXC (COMPQ N T LDT Q LDQ IFST ILST WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STREXC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17352 ':INT32) (LDT-REF17354 ':INT32)
                              (LDQ-REF17356 ':INT32) (IFST-REF17357 ':INT32)
                              (ILST-REF17358 ':INT32) (INFO-REF17360 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17352 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17354 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17356 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF17357 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF17358 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17360 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF17353 T) (Q-REF17355 Q)
                                            (WORK-REF17359 WORK))
      (%%STREXC COMPQ N-REF17352 T-REF17353 LDT-REF17354 Q-REF17355
       LDQ-REF17356 IFST-REF17357 ILST-REF17358 WORK-REF17359 INFO-REF17360))))

(CFFI:DEFCFUN ("strrfs_" %%STRRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STRRFS
                   (UPLO TRANS DIAG N NRHS A LDA B LDB X LDX FERR BERR WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17364 ':INT32) (NRHS-REF17365 ':INT32)
                              (LDA-REF17367 ':INT32) (LDB-REF17369 ':INT32)
                              (LDX-REF17371 ':INT32) (INFO-REF17376 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17364 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17365 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17367 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17369 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17371 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17376 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17366 A) (B-REF17368 B)
                                            (X-REF17370 X) (FERR-REF17372 FERR)
                                            (BERR-REF17373 BERR)
                                            (WORK-REF17374 WORK)
                                            (IWORK-REF17375 IWORK))
      (%%STRRFS UPLO TRANS DIAG N-REF17364 NRHS-REF17365 A-REF17366
       LDA-REF17367 B-REF17368 LDB-REF17369 X-REF17370 LDX-REF17371
       FERR-REF17372 BERR-REF17373 WORK-REF17374 IWORK-REF17375
       INFO-REF17376))))

(CFFI:DEFCFUN ("strsen_" %%STRSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPQ :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (M :POINTER)
  (S :POINTER)
  (SEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STRSEN
                   (JOB COMPQ SELECT N T LDT Q LDQ WR WI M S SEP WORK LWORK
                    IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRSEN)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17380 ':INT32) (LDT-REF17382 ':INT32)
                              (LDQ-REF17384 ':INT32) (M-REF17387 ':INT32)
                              (S-REF17388 ':FLOAT) (SEP-REF17389 ':FLOAT)
                              (LWORK-REF17391 ':INT32)
                              (LIWORK-REF17393 ':INT32) (INFO-REF17394 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17380 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17382 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17384 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17387 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF17388 :FLOAT) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEP-REF17389 :FLOAT) SEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17391 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF17393 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17394 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17379 SELECT)
                                            (T-REF17381 T) (Q-REF17383 Q)
                                            (WR-REF17385 WR) (WI-REF17386 WI)
                                            (WORK-REF17390 WORK)
                                            (IWORK-REF17392 IWORK))
      (%%STRSEN JOB COMPQ SELECT-REF17379 N-REF17380 T-REF17381 LDT-REF17382
       Q-REF17383 LDQ-REF17384 WR-REF17385 WI-REF17386 M-REF17387 S-REF17388
       SEP-REF17389 WORK-REF17390 LWORK-REF17391 IWORK-REF17392 LIWORK-REF17393
       INFO-REF17394))))

(CFFI:DEFCFUN ("strsna_" %%STRSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (S :POINTER)
  (SEP :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STRSNA
                   (JOB HOWMNY SELECT N T LDT VL LDVL VR LDVR S SEP MM M WORK
                    LDWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRSNA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SEP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17398 ':INT32) (LDT-REF17400 ':INT32)
                              (LDVL-REF17402 ':INT32) (LDVR-REF17404 ':INT32)
                              (MM-REF17407 ':INT32) (M-REF17408 ':INT32)
                              (LDWORK-REF17410 ':INT32) (INFO-REF17412 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17398 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17400 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17402 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17404 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF17407 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17408 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF17410 :INT32) LDWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17412 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17397 SELECT)
                                            (T-REF17399 T) (VL-REF17401 VL)
                                            (VR-REF17403 VR) (S-REF17405 S)
                                            (SEP-REF17406 SEP)
                                            (WORK-REF17409 WORK)
                                            (IWORK-REF17411 IWORK))
      (%%STRSNA JOB HOWMNY SELECT-REF17397 N-REF17398 T-REF17399 LDT-REF17400
       VL-REF17401 LDVL-REF17402 VR-REF17403 LDVR-REF17404 S-REF17405
       SEP-REF17406 MM-REF17407 M-REF17408 WORK-REF17409 LDWORK-REF17410
       IWORK-REF17411 INFO-REF17412))))

(CFFI:DEFCFUN ("strsyl_" %%STRSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANA :STRING)
  (TRANB :STRING)
  (ISGN :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (SCALE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STRSYL (TRANA TRANB ISGN M N A LDA B LDB C LDC SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRSYL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISGN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISGN-REF17415 ':INT32) (M-REF17416 ':INT32)
                              (N-REF17417 ':INT32) (LDA-REF17419 ':INT32)
                              (LDB-REF17421 ':INT32) (LDC-REF17423 ':INT32)
                              (SCALE-REF17424 ':FLOAT) (INFO-REF17425 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF17415 :INT32) ISGN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17416 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17417 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17419 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17421 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17423 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF17424 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17425 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17418 A) (B-REF17420 B)
                                            (C-REF17422 C))
      (%%STRSYL TRANA TRANB ISGN-REF17415 M-REF17416 N-REF17417 A-REF17418
       LDA-REF17419 B-REF17420 LDB-REF17421 C-REF17422 LDC-REF17423
       SCALE-REF17424 INFO-REF17425))))

(CFFI:DEFCFUN ("strti2_" %%STRTI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STRTI2 (UPLO DIAG N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRTI2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17428 ':INT32) (LDA-REF17430 ':INT32)
                              (INFO-REF17431 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17428 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17430 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17431 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17429 A))
      (%%STRTI2 UPLO DIAG N-REF17428 A-REF17429 LDA-REF17430 INFO-REF17431))))

(CFFI:DEFCFUN ("strtri_" %%STRTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STRTRI (UPLO DIAG N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17434 ':INT32) (LDA-REF17436 ':INT32)
                              (INFO-REF17437 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17434 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17436 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17437 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17435 A))
      (%%STRTRI UPLO DIAG N-REF17434 A-REF17435 LDA-REF17436 INFO-REF17437))))

(CFFI:DEFCFUN ("strtrs_" %%STRTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STRTRS (UPLO TRANS DIAG N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17441 ':INT32) (NRHS-REF17442 ':INT32)
                              (LDA-REF17444 ':INT32) (LDB-REF17446 ':INT32)
                              (INFO-REF17447 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17441 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17442 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17444 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17446 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17447 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17443 A) (B-REF17445 B))
      (%%STRTRS UPLO TRANS DIAG N-REF17441 NRHS-REF17442 A-REF17443
       LDA-REF17444 B-REF17445 LDB-REF17446 INFO-REF17447))))

(CFFI:DEFCFUN ("strttf_" %%STRTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ARF :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STRTTF (TRANSR UPLO N A LDA ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRTTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ARF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17450 ':INT32) (LDA-REF17452 ':INT32)
                              (INFO-REF17454 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17450 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17452 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17454 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17451 A) (ARF-REF17453 ARF))
      (%%STRTTF TRANSR UPLO N-REF17450 A-REF17451 LDA-REF17452 ARF-REF17453
       INFO-REF17454))))

(CFFI:DEFCFUN ("strttp_" %%STRTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STRTTP (UPLO N A LDA AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRTTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17456 ':INT32) (LDA-REF17458 ':INT32)
                              (INFO-REF17460 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17456 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17458 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17460 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17457 A) (AP-REF17459 AP))
      (%%STRTTP UPLO N-REF17456 A-REF17457 LDA-REF17458 AP-REF17459
       INFO-REF17460))))

(CFFI:DEFCFUN ("stzrzf_" %%STZRZF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STZRZF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STZRZF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17461 ':INT32) (N-REF17462 ':INT32)
                              (LDA-REF17464 ':INT32) (LWORK-REF17467 ':INT32)
                              (INFO-REF17468 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17461 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17462 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17464 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17467 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17468 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17463 A) (TAU-REF17465 TAU)
                                            (WORK-REF17466 WORK))
      (%%STZRZF M-REF17461 N-REF17462 A-REF17463 LDA-REF17464 TAU-REF17465
       WORK-REF17466 LWORK-REF17467 INFO-REF17468))))

(COMMON-LISP:DECLAIM
 (COMMON-LISP:NOTINLINE %%SLASDA %SLASDA %%SLASDQ %SLASDQ %%SLASDT %SLASDT
  %%SLASET %SLASET %%SLASQ1 %SLASQ1 %%SLASQ2 %SLASQ2 %%SLASQ3 %SLASQ3 %%SLASQ4
  %SLASQ4 %%SLASQ5 %SLASQ5 %%SLASQ6 %SLASQ6 %%SLASR %SLASR %%SLASRT %SLASRT
  %%SLASSQ %SLASSQ %%SLASV2 %SLASV2 %%SLASWLQ %SLASWLQ %%SLASWP %SLASWP
  %%SLASY2 %SLASY2 %%SLASYF %SLASYF %%SLASYF_AA %SLASYF_AA %%SLASYF_RK
  %SLASYF_RK %%SLASYF_ROOK %SLASYF_ROOK %%SLATBS %SLATBS %%SLATDF %SLATDF
  %%SLATPS %SLATPS %%SLATRD %SLATRD %%SLATRS %SLATRS %%SLATRZ %SLATRZ %%SLATSQR
  %SLATSQR %%SLAUU2 %SLAUU2 %%SLAUUM %SLAUUM %%SOPGTR %SOPGTR %%SOPMTR %SOPMTR
  %%SORBDB %SORBDB %%SORBDB1 %SORBDB1 %%SORBDB2 %SORBDB2 %%SORBDB3 %SORBDB3
  %%SORBDB4 %SORBDB4 %%SORBDB5 %SORBDB5 %%SORBDB6 %SORBDB6 %%SORCSD %SORCSD
  %%SORCSD2BY1 %SORCSD2BY1 %%SORG2L %SORG2L %%SORG2R %SORG2R %%SORGBR %SORGBR
  %%SORGHR %SORGHR %%SORGL2 %SORGL2 %%SORGLQ %SORGLQ %%SORGQL %SORGQL %%SORGQR
  %SORGQR %%SORGR2 %SORGR2 %%SORGRQ %SORGRQ %%SORGTR %SORGTR %%SORGTSQR
  %SORGTSQR %%SORHR_COL %SORHR_COL %%SORM22 %SORM22 %%SORM2L %SORM2L %%SORM2R
  %SORM2R %%SORMBR %SORMBR %%SORMHR %SORMHR %%SORML2 %SORML2 %%SORMLQ %SORMLQ
  %%SORMQL %SORMQL %%SORMQR %SORMQR %%SORMR2 %SORMR2 %%SORMR3 %SORMR3 %%SORMRQ
  %SORMRQ %%SORMRZ %SORMRZ %%SORMTR %SORMTR %%SPBCON %SPBCON %%SPBEQU %SPBEQU
  %%SPBRFS %SPBRFS %%SPBSTF %SPBSTF %%SPBSV %SPBSV %%SPBSVX %SPBSVX %%SPBTF2
  %SPBTF2 %%SPBTRF %SPBTRF %%SPBTRS %SPBTRS %%SPFTRF %SPFTRF %%SPFTRI %SPFTRI
  %%SPFTRS %SPFTRS %%SPOCON %SPOCON %%SPOEQU %SPOEQU %%SPOEQUB %SPOEQUB
  %%SPORFS %SPORFS %%SPORFSX %SPORFSX %%SPOSV %SPOSV %%SPOSVX %SPOSVX %%SPOSVXX
  %SPOSVXX %%SPOTF2 %SPOTF2 %%SPOTRF %SPOTRF %%SPOTRF2 %SPOTRF2 %%SPOTRI
  %SPOTRI %%SPOTRS %SPOTRS %%SPPCON %SPPCON %%SPPEQU %SPPEQU %%SPPRFS %SPPRFS
  %%SPPSV %SPPSV %%SPPSVX %SPPSVX %%SPPTRF %SPPTRF %%SPPTRI %SPPTRI %%SPPTRS
  %SPPTRS %%SPSTF2 %SPSTF2 %%SPSTRF %SPSTRF %%SPTCON %SPTCON %%SPTEQR %SPTEQR
  %%SPTRFS %SPTRFS %%SPTSV %SPTSV %%SPTSVX %SPTSVX %%SPTTRF %SPTTRF %%SPTTRS
  %SPTTRS %%SPTTS2 %SPTTS2 %%SRSCL %SRSCL %%SSB2ST_KERNELS %SSB2ST_KERNELS
  %%SSBEV %SSBEV %%SSBEV_2STAGE %SSBEV_2STAGE %%SSBEVD %SSBEVD %%SSBEVD_2STAGE
  %SSBEVD_2STAGE %%SSBEVX %SSBEVX %%SSBEVX_2STAGE %SSBEVX_2STAGE %%SSBGST
  %SSBGST %%SSBGV %SSBGV %%SSBGVD %SSBGVD %%SSBGVX %SSBGVX %%SSBTRD %SSBTRD
  %%SSFRK %SSFRK %%SSPCON %SSPCON %%SSPEV %SSPEV %%SSPEVD %SSPEVD %%SSPEVX
  %SSPEVX %%SSPGST %SSPGST %%SSPGV %SSPGV %%SSPGVD %SSPGVD %%SSPGVX %SSPGVX
  %%SSPRFS %SSPRFS %%SSPSV %SSPSV %%SSPSVX %SSPSVX %%SSPTRD %SSPTRD %%SSPTRF
  %SSPTRF %%SSPTRI %SSPTRI %%SSPTRS %SSPTRS %%SSTEBZ %SSTEBZ %%SSTEDC %SSTEDC
  %%SSTEGR %SSTEGR %%SSTEIN %SSTEIN %%SSTEMR %SSTEMR %%SSTEQR %SSTEQR %%SSTERF
  %SSTERF %%SSTEV %SSTEV %%SSTEVD %SSTEVD %%SSTEVR %SSTEVR %%SSTEVX %SSTEVX
  %%SSYCON %SSYCON %%SSYCON_3 %SSYCON_3 %%SSYCON_ROOK %SSYCON_ROOK %%SSYCONV
  %SSYCONV %%SSYCONVF %SSYCONVF %%SSYCONVF_ROOK %SSYCONVF_ROOK %%SSYEQUB
  %SSYEQUB %%SSYEV %SSYEV %%SSYEV_2STAGE %SSYEV_2STAGE %%SSYEVD %SSYEVD
  %%SSYEVD_2STAGE %SSYEVD_2STAGE %%SSYEVR %SSYEVR %%SSYEVR_2STAGE
  %SSYEVR_2STAGE %%SSYEVX %SSYEVX %%SSYEVX_2STAGE %SSYEVX_2STAGE %%SSYGS2
  %SSYGS2 %%SSYGST %SSYGST %%SSYGV %SSYGV %%SSYGV_2STAGE %SSYGV_2STAGE %%SSYGVD
  %SSYGVD %%SSYGVX %SSYGVX %%SSYRFS %SSYRFS %%SSYRFSX %SSYRFSX %%SSYSV %SSYSV
  %%SSYSV_AA %SSYSV_AA %%SSYSV_AA_2STAGE %SSYSV_AA_2STAGE %%SSYSV_RK %SSYSV_RK
  %%SSYSV_ROOK %SSYSV_ROOK %%SSYSVX %SSYSVX %%SSYSVXX %SSYSVXX %%SSYSWAPR
  %SSYSWAPR %%SSYTD2 %SSYTD2 %%SSYTF2 %SSYTF2 %%SSYTF2_RK %SSYTF2_RK
  %%SSYTF2_ROOK %SSYTF2_ROOK %%SSYTRD %SSYTRD %%SSYTRD_2STAGE %SSYTRD_2STAGE
  %%SSYTRD_SY2SB %SSYTRD_SY2SB %%SSYTRF %SSYTRF %%SSYTRF_AA %SSYTRF_AA
  %%SSYTRF_AA_2STAGE %SSYTRF_AA_2STAGE %%SSYTRF_RK %SSYTRF_RK %%SSYTRF_ROOK
  %SSYTRF_ROOK %%SSYTRI %SSYTRI %%SSYTRI2 %SSYTRI2 %%SSYTRI2X %SSYTRI2X
  %%SSYTRI_3 %SSYTRI_3 %%SSYTRI_3X %SSYTRI_3X %%SSYTRI_ROOK %SSYTRI_ROOK
  %%SSYTRS %SSYTRS %%SSYTRS2 %SSYTRS2 %%SSYTRS_3 %SSYTRS_3 %%SSYTRS_AA
  %SSYTRS_AA %%SSYTRS_AA_2STAGE %SSYTRS_AA_2STAGE %%SSYTRS_ROOK %SSYTRS_ROOK
  %%STBCON %STBCON %%STBRFS %STBRFS %%STBTRS %STBTRS %%STFSM %STFSM %%STFTRI
  %STFTRI %%STFTTP %STFTTP %%STFTTR %STFTTR %%STGEVC %STGEVC %%STGEX2 %STGEX2
  %%STGEXC %STGEXC %%STGSEN %STGSEN %%STGSJA %STGSJA %%STGSNA %STGSNA %%STGSY2
  %STGSY2 %%STGSYL %STGSYL %%STPCON %STPCON %%STPLQT %STPLQT %%STPLQT2 %STPLQT2
  %%STPMLQT %STPMLQT %%STPMQRT %STPMQRT %%STPQRT %STPQRT %%STPQRT2 %STPQRT2
  %%STPRFB %STPRFB %%STPRFS %STPRFS %%STPTRI %STPTRI %%STPTRS %STPTRS %%STPTTF
  %STPTTF %%STPTTR %STPTTR %%STRCON %STRCON %%STREVC %STREVC %%STREVC3 %STREVC3
  %%STREXC %STREXC %%STRRFS %STRRFS %%STRSEN %STRSEN %%STRSNA %STRSNA %%STRSYL
  %STRSYL %%STRTI2 %STRTI2 %%STRTRI %STRTRI %%STRTRS %STRTRS %%STRTTF %STRTTF
  %%STRTTP %STRTTP %%STZRZF %STZRZF))

(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS 'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK
                                        '(("SLASDA" "slasda_" %%SLASDA %SLASDA)
                                          ("SLASDQ" "slasdq_" %%SLASDQ %SLASDQ)
                                          ("SLASDT" "slasdt_" %%SLASDT %SLASDT)
                                          ("SLASET" "slaset_" %%SLASET %SLASET)
                                          ("SLASQ1" "slasq1_" %%SLASQ1 %SLASQ1)
                                          ("SLASQ2" "slasq2_" %%SLASQ2 %SLASQ2)
                                          ("SLASQ3" "slasq3_" %%SLASQ3 %SLASQ3)
                                          ("SLASQ4" "slasq4_" %%SLASQ4 %SLASQ4)
                                          ("SLASQ5" "slasq5_" %%SLASQ5 %SLASQ5)
                                          ("SLASQ6" "slasq6_" %%SLASQ6 %SLASQ6)
                                          ("SLASR" "slasr_" %%SLASR %SLASR)
                                          ("SLASRT" "slasrt_" %%SLASRT %SLASRT)
                                          ("SLASSQ" "slassq_" %%SLASSQ %SLASSQ)
                                          ("SLASV2" "slasv2_" %%SLASV2 %SLASV2)
                                          ("SLASWLQ" "slaswlq_" %%SLASWLQ
                                           %SLASWLQ)
                                          ("SLASWP" "slaswp_" %%SLASWP %SLASWP)
                                          ("SLASY2" "slasy2_" %%SLASY2 %SLASY2)
                                          ("SLASYF" "slasyf_" %%SLASYF %SLASYF)
                                          ("SLASYF_AA" "slasyf_aa_" %%SLASYF_AA
                                           %SLASYF_AA)
                                          ("SLASYF_RK" "slasyf_rk_" %%SLASYF_RK
                                           %SLASYF_RK)
                                          ("SLASYF_ROOK" "slasyf_rook_"
                                           %%SLASYF_ROOK %SLASYF_ROOK)
                                          ("SLATBS" "slatbs_" %%SLATBS %SLATBS)
                                          ("SLATDF" "slatdf_" %%SLATDF %SLATDF)
                                          ("SLATPS" "slatps_" %%SLATPS %SLATPS)
                                          ("SLATRD" "slatrd_" %%SLATRD %SLATRD)
                                          ("SLATRS" "slatrs_" %%SLATRS %SLATRS)
                                          ("SLATRZ" "slatrz_" %%SLATRZ %SLATRZ)
                                          ("SLATSQR" "slatsqr_" %%SLATSQR
                                           %SLATSQR)
                                          ("SLAUU2" "slauu2_" %%SLAUU2 %SLAUU2)
                                          ("SLAUUM" "slauum_" %%SLAUUM %SLAUUM)
                                          ("SOPGTR" "sopgtr_" %%SOPGTR %SOPGTR)
                                          ("SOPMTR" "sopmtr_" %%SOPMTR %SOPMTR)
                                          ("SORBDB" "sorbdb_" %%SORBDB %SORBDB)
                                          ("SORBDB1" "sorbdb1_" %%SORBDB1
                                           %SORBDB1)
                                          ("SORBDB2" "sorbdb2_" %%SORBDB2
                                           %SORBDB2)
                                          ("SORBDB3" "sorbdb3_" %%SORBDB3
                                           %SORBDB3)
                                          ("SORBDB4" "sorbdb4_" %%SORBDB4
                                           %SORBDB4)
                                          ("SORBDB5" "sorbdb5_" %%SORBDB5
                                           %SORBDB5)
                                          ("SORBDB6" "sorbdb6_" %%SORBDB6
                                           %SORBDB6)
                                          ("SORCSD" "sorcsd_" %%SORCSD %SORCSD)
                                          ("SORCSD2BY1" "sorcsd2by1_"
                                           %%SORCSD2BY1 %SORCSD2BY1)
                                          ("SORG2L" "sorg2l_" %%SORG2L %SORG2L)
                                          ("SORG2R" "sorg2r_" %%SORG2R %SORG2R)
                                          ("SORGBR" "sorgbr_" %%SORGBR %SORGBR)
                                          ("SORGHR" "sorghr_" %%SORGHR %SORGHR)
                                          ("SORGL2" "sorgl2_" %%SORGL2 %SORGL2)
                                          ("SORGLQ" "sorglq_" %%SORGLQ %SORGLQ)
                                          ("SORGQL" "sorgql_" %%SORGQL %SORGQL)
                                          ("SORGQR" "sorgqr_" %%SORGQR %SORGQR)
                                          ("SORGR2" "sorgr2_" %%SORGR2 %SORGR2)
                                          ("SORGRQ" "sorgrq_" %%SORGRQ %SORGRQ)
                                          ("SORGTR" "sorgtr_" %%SORGTR %SORGTR)
                                          ("SORGTSQR" "sorgtsqr_" %%SORGTSQR
                                           %SORGTSQR)
                                          ("SORHR_COL" "sorhr_col_" %%SORHR_COL
                                           %SORHR_COL)
                                          ("SORM22" "sorm22_" %%SORM22 %SORM22)
                                          ("SORM2L" "sorm2l_" %%SORM2L %SORM2L)
                                          ("SORM2R" "sorm2r_" %%SORM2R %SORM2R)
                                          ("SORMBR" "sormbr_" %%SORMBR %SORMBR)
                                          ("SORMHR" "sormhr_" %%SORMHR %SORMHR)
                                          ("SORML2" "sorml2_" %%SORML2 %SORML2)
                                          ("SORMLQ" "sormlq_" %%SORMLQ %SORMLQ)
                                          ("SORMQL" "sormql_" %%SORMQL %SORMQL)
                                          ("SORMQR" "sormqr_" %%SORMQR %SORMQR)
                                          ("SORMR2" "sormr2_" %%SORMR2 %SORMR2)
                                          ("SORMR3" "sormr3_" %%SORMR3 %SORMR3)
                                          ("SORMRQ" "sormrq_" %%SORMRQ %SORMRQ)
                                          ("SORMRZ" "sormrz_" %%SORMRZ %SORMRZ)
                                          ("SORMTR" "sormtr_" %%SORMTR %SORMTR)
                                          ("SPBCON" "spbcon_" %%SPBCON %SPBCON)
                                          ("SPBEQU" "spbequ_" %%SPBEQU %SPBEQU)
                                          ("SPBRFS" "spbrfs_" %%SPBRFS %SPBRFS)
                                          ("SPBSTF" "spbstf_" %%SPBSTF %SPBSTF)
                                          ("SPBSV" "spbsv_" %%SPBSV %SPBSV)
                                          ("SPBSVX" "spbsvx_" %%SPBSVX %SPBSVX)
                                          ("SPBTF2" "spbtf2_" %%SPBTF2 %SPBTF2)
                                          ("SPBTRF" "spbtrf_" %%SPBTRF %SPBTRF)
                                          ("SPBTRS" "spbtrs_" %%SPBTRS %SPBTRS)
                                          ("SPFTRF" "spftrf_" %%SPFTRF %SPFTRF)
                                          ("SPFTRI" "spftri_" %%SPFTRI %SPFTRI)
                                          ("SPFTRS" "spftrs_" %%SPFTRS %SPFTRS)
                                          ("SPOCON" "spocon_" %%SPOCON %SPOCON)
                                          ("SPOEQU" "spoequ_" %%SPOEQU %SPOEQU)
                                          ("SPOEQUB" "spoequb_" %%SPOEQUB
                                           %SPOEQUB)
                                          ("SPORFS" "sporfs_" %%SPORFS %SPORFS)
                                          ("SPORFSX" "sporfsx_" %%SPORFSX
                                           %SPORFSX)
                                          ("SPOSV" "sposv_" %%SPOSV %SPOSV)
                                          ("SPOSVX" "sposvx_" %%SPOSVX %SPOSVX)
                                          ("SPOSVXX" "sposvxx_" %%SPOSVXX
                                           %SPOSVXX)
                                          ("SPOTF2" "spotf2_" %%SPOTF2 %SPOTF2)
                                          ("SPOTRF" "spotrf_" %%SPOTRF %SPOTRF)
                                          ("SPOTRF2" "spotrf2_" %%SPOTRF2
                                           %SPOTRF2)
                                          ("SPOTRI" "spotri_" %%SPOTRI %SPOTRI)
                                          ("SPOTRS" "spotrs_" %%SPOTRS %SPOTRS)
                                          ("SPPCON" "sppcon_" %%SPPCON %SPPCON)
                                          ("SPPEQU" "sppequ_" %%SPPEQU %SPPEQU)
                                          ("SPPRFS" "spprfs_" %%SPPRFS %SPPRFS)
                                          ("SPPSV" "sppsv_" %%SPPSV %SPPSV)
                                          ("SPPSVX" "sppsvx_" %%SPPSVX %SPPSVX)
                                          ("SPPTRF" "spptrf_" %%SPPTRF %SPPTRF)
                                          ("SPPTRI" "spptri_" %%SPPTRI %SPPTRI)
                                          ("SPPTRS" "spptrs_" %%SPPTRS %SPPTRS)
                                          ("SPSTF2" "spstf2_" %%SPSTF2 %SPSTF2)
                                          ("SPSTRF" "spstrf_" %%SPSTRF %SPSTRF)
                                          ("SPTCON" "sptcon_" %%SPTCON %SPTCON)
                                          ("SPTEQR" "spteqr_" %%SPTEQR %SPTEQR)
                                          ("SPTRFS" "sptrfs_" %%SPTRFS %SPTRFS)
                                          ("SPTSV" "sptsv_" %%SPTSV %SPTSV)
                                          ("SPTSVX" "sptsvx_" %%SPTSVX %SPTSVX)
                                          ("SPTTRF" "spttrf_" %%SPTTRF %SPTTRF)
                                          ("SPTTRS" "spttrs_" %%SPTTRS %SPTTRS)
                                          ("SPTTS2" "sptts2_" %%SPTTS2 %SPTTS2)
                                          ("SRSCL" "srscl_" %%SRSCL %SRSCL)
                                          ("SSB2ST_KERNELS" "ssb2st_kernels_"
                                           %%SSB2ST_KERNELS %SSB2ST_KERNELS)
                                          ("SSBEV" "ssbev_" %%SSBEV %SSBEV)
                                          ("SSBEV_2STAGE" "ssbev_2stage_"
                                           %%SSBEV_2STAGE %SSBEV_2STAGE)
                                          ("SSBEVD" "ssbevd_" %%SSBEVD %SSBEVD)
                                          ("SSBEVD_2STAGE" "ssbevd_2stage_"
                                           %%SSBEVD_2STAGE %SSBEVD_2STAGE)
                                          ("SSBEVX" "ssbevx_" %%SSBEVX %SSBEVX)
                                          ("SSBEVX_2STAGE" "ssbevx_2stage_"
                                           %%SSBEVX_2STAGE %SSBEVX_2STAGE)
                                          ("SSBGST" "ssbgst_" %%SSBGST %SSBGST)
                                          ("SSBGV" "ssbgv_" %%SSBGV %SSBGV)
                                          ("SSBGVD" "ssbgvd_" %%SSBGVD %SSBGVD)
                                          ("SSBGVX" "ssbgvx_" %%SSBGVX %SSBGVX)
                                          ("SSBTRD" "ssbtrd_" %%SSBTRD %SSBTRD)
                                          ("SSFRK" "ssfrk_" %%SSFRK %SSFRK)
                                          ("SSPCON" "sspcon_" %%SSPCON %SSPCON)
                                          ("SSPEV" "sspev_" %%SSPEV %SSPEV)
                                          ("SSPEVD" "sspevd_" %%SSPEVD %SSPEVD)
                                          ("SSPEVX" "sspevx_" %%SSPEVX %SSPEVX)
                                          ("SSPGST" "sspgst_" %%SSPGST %SSPGST)
                                          ("SSPGV" "sspgv_" %%SSPGV %SSPGV)
                                          ("SSPGVD" "sspgvd_" %%SSPGVD %SSPGVD)
                                          ("SSPGVX" "sspgvx_" %%SSPGVX %SSPGVX)
                                          ("SSPRFS" "ssprfs_" %%SSPRFS %SSPRFS)
                                          ("SSPSV" "sspsv_" %%SSPSV %SSPSV)
                                          ("SSPSVX" "sspsvx_" %%SSPSVX %SSPSVX)
                                          ("SSPTRD" "ssptrd_" %%SSPTRD %SSPTRD)
                                          ("SSPTRF" "ssptrf_" %%SSPTRF %SSPTRF)
                                          ("SSPTRI" "ssptri_" %%SSPTRI %SSPTRI)
                                          ("SSPTRS" "ssptrs_" %%SSPTRS %SSPTRS)
                                          ("SSTEBZ" "sstebz_" %%SSTEBZ %SSTEBZ)
                                          ("SSTEDC" "sstedc_" %%SSTEDC %SSTEDC)
                                          ("SSTEGR" "sstegr_" %%SSTEGR %SSTEGR)
                                          ("SSTEIN" "sstein_" %%SSTEIN %SSTEIN)
                                          ("SSTEMR" "sstemr_" %%SSTEMR %SSTEMR)
                                          ("SSTEQR" "ssteqr_" %%SSTEQR %SSTEQR)
                                          ("SSTERF" "ssterf_" %%SSTERF %SSTERF)
                                          ("SSTEV" "sstev_" %%SSTEV %SSTEV)
                                          ("SSTEVD" "sstevd_" %%SSTEVD %SSTEVD)
                                          ("SSTEVR" "sstevr_" %%SSTEVR %SSTEVR)
                                          ("SSTEVX" "sstevx_" %%SSTEVX %SSTEVX)
                                          ("SSYCON" "ssycon_" %%SSYCON %SSYCON)
                                          ("SSYCON_3" "ssycon_3_" %%SSYCON_3
                                           %SSYCON_3)
                                          ("SSYCON_ROOK" "ssycon_rook_"
                                           %%SSYCON_ROOK %SSYCON_ROOK)
                                          ("SSYCONV" "ssyconv_" %%SSYCONV
                                           %SSYCONV)
                                          ("SSYCONVF" "ssyconvf_" %%SSYCONVF
                                           %SSYCONVF)
                                          ("SSYCONVF_ROOK" "ssyconvf_rook_"
                                           %%SSYCONVF_ROOK %SSYCONVF_ROOK)
                                          ("SSYEQUB" "ssyequb_" %%SSYEQUB
                                           %SSYEQUB)
                                          ("SSYEV" "ssyev_" %%SSYEV %SSYEV)
                                          ("SSYEV_2STAGE" "ssyev_2stage_"
                                           %%SSYEV_2STAGE %SSYEV_2STAGE)
                                          ("SSYEVD" "ssyevd_" %%SSYEVD %SSYEVD)
                                          ("SSYEVD_2STAGE" "ssyevd_2stage_"
                                           %%SSYEVD_2STAGE %SSYEVD_2STAGE)
                                          ("SSYEVR" "ssyevr_" %%SSYEVR %SSYEVR)
                                          ("SSYEVR_2STAGE" "ssyevr_2stage_"
                                           %%SSYEVR_2STAGE %SSYEVR_2STAGE)
                                          ("SSYEVX" "ssyevx_" %%SSYEVX %SSYEVX)
                                          ("SSYEVX_2STAGE" "ssyevx_2stage_"
                                           %%SSYEVX_2STAGE %SSYEVX_2STAGE)
                                          ("SSYGS2" "ssygs2_" %%SSYGS2 %SSYGS2)
                                          ("SSYGST" "ssygst_" %%SSYGST %SSYGST)
                                          ("SSYGV" "ssygv_" %%SSYGV %SSYGV)
                                          ("SSYGV_2STAGE" "ssygv_2stage_"
                                           %%SSYGV_2STAGE %SSYGV_2STAGE)
                                          ("SSYGVD" "ssygvd_" %%SSYGVD %SSYGVD)
                                          ("SSYGVX" "ssygvx_" %%SSYGVX %SSYGVX)
                                          ("SSYRFS" "ssyrfs_" %%SSYRFS %SSYRFS)
                                          ("SSYRFSX" "ssyrfsx_" %%SSYRFSX
                                           %SSYRFSX)
                                          ("SSYSV" "ssysv_" %%SSYSV %SSYSV)
                                          ("SSYSV_AA" "ssysv_aa_" %%SSYSV_AA
                                           %SSYSV_AA)
                                          ("SSYSV_AA_2STAGE" "ssysv_aa_2stage_"
                                           %%SSYSV_AA_2STAGE %SSYSV_AA_2STAGE)
                                          ("SSYSV_RK" "ssysv_rk_" %%SSYSV_RK
                                           %SSYSV_RK)
                                          ("SSYSV_ROOK" "ssysv_rook_"
                                           %%SSYSV_ROOK %SSYSV_ROOK)
                                          ("SSYSVX" "ssysvx_" %%SSYSVX %SSYSVX)
                                          ("SSYSVXX" "ssysvxx_" %%SSYSVXX
                                           %SSYSVXX)
                                          ("SSYSWAPR" "ssyswapr_" %%SSYSWAPR
                                           %SSYSWAPR)
                                          ("SSYTD2" "ssytd2_" %%SSYTD2 %SSYTD2)
                                          ("SSYTF2" "ssytf2_" %%SSYTF2 %SSYTF2)
                                          ("SSYTF2_RK" "ssytf2_rk_" %%SSYTF2_RK
                                           %SSYTF2_RK)
                                          ("SSYTF2_ROOK" "ssytf2_rook_"
                                           %%SSYTF2_ROOK %SSYTF2_ROOK)
                                          ("SSYTRD" "ssytrd_" %%SSYTRD %SSYTRD)
                                          ("SSYTRD_2STAGE" "ssytrd_2stage_"
                                           %%SSYTRD_2STAGE %SSYTRD_2STAGE)
                                          ("SSYTRD_SY2SB" "ssytrd_sy2sb_"
                                           %%SSYTRD_SY2SB %SSYTRD_SY2SB)
                                          ("SSYTRF" "ssytrf_" %%SSYTRF %SSYTRF)
                                          ("SSYTRF_AA" "ssytrf_aa_" %%SSYTRF_AA
                                           %SSYTRF_AA)
                                          ("SSYTRF_AA_2STAGE"
                                           "ssytrf_aa_2stage_"
                                           %%SSYTRF_AA_2STAGE
                                           %SSYTRF_AA_2STAGE)
                                          ("SSYTRF_RK" "ssytrf_rk_" %%SSYTRF_RK
                                           %SSYTRF_RK)
                                          ("SSYTRF_ROOK" "ssytrf_rook_"
                                           %%SSYTRF_ROOK %SSYTRF_ROOK)
                                          ("SSYTRI" "ssytri_" %%SSYTRI %SSYTRI)
                                          ("SSYTRI2" "ssytri2_" %%SSYTRI2
                                           %SSYTRI2)
                                          ("SSYTRI2X" "ssytri2x_" %%SSYTRI2X
                                           %SSYTRI2X)
                                          ("SSYTRI_3" "ssytri_3_" %%SSYTRI_3
                                           %SSYTRI_3)
                                          ("SSYTRI_3X" "ssytri_3x_" %%SSYTRI_3X
                                           %SSYTRI_3X)
                                          ("SSYTRI_ROOK" "ssytri_rook_"
                                           %%SSYTRI_ROOK %SSYTRI_ROOK)
                                          ("SSYTRS" "ssytrs_" %%SSYTRS %SSYTRS)
                                          ("SSYTRS2" "ssytrs2_" %%SSYTRS2
                                           %SSYTRS2)
                                          ("SSYTRS_3" "ssytrs_3_" %%SSYTRS_3
                                           %SSYTRS_3)
                                          ("SSYTRS_AA" "ssytrs_aa_" %%SSYTRS_AA
                                           %SSYTRS_AA)
                                          ("SSYTRS_AA_2STAGE"
                                           "ssytrs_aa_2stage_"
                                           %%SSYTRS_AA_2STAGE
                                           %SSYTRS_AA_2STAGE)
                                          ("SSYTRS_ROOK" "ssytrs_rook_"
                                           %%SSYTRS_ROOK %SSYTRS_ROOK)
                                          ("STBCON" "stbcon_" %%STBCON %STBCON)
                                          ("STBRFS" "stbrfs_" %%STBRFS %STBRFS)
                                          ("STBTRS" "stbtrs_" %%STBTRS %STBTRS)
                                          ("STFSM" "stfsm_" %%STFSM %STFSM)
                                          ("STFTRI" "stftri_" %%STFTRI %STFTRI)
                                          ("STFTTP" "stfttp_" %%STFTTP %STFTTP)
                                          ("STFTTR" "stfttr_" %%STFTTR %STFTTR)
                                          ("STGEVC" "stgevc_" %%STGEVC %STGEVC)
                                          ("STGEX2" "stgex2_" %%STGEX2 %STGEX2)
                                          ("STGEXC" "stgexc_" %%STGEXC %STGEXC)
                                          ("STGSEN" "stgsen_" %%STGSEN %STGSEN)
                                          ("STGSJA" "stgsja_" %%STGSJA %STGSJA)
                                          ("STGSNA" "stgsna_" %%STGSNA %STGSNA)
                                          ("STGSY2" "stgsy2_" %%STGSY2 %STGSY2)
                                          ("STGSYL" "stgsyl_" %%STGSYL %STGSYL)
                                          ("STPCON" "stpcon_" %%STPCON %STPCON)
                                          ("STPLQT" "stplqt_" %%STPLQT %STPLQT)
                                          ("STPLQT2" "stplqt2_" %%STPLQT2
                                           %STPLQT2)
                                          ("STPMLQT" "stpmlqt_" %%STPMLQT
                                           %STPMLQT)
                                          ("STPMQRT" "stpmqrt_" %%STPMQRT
                                           %STPMQRT)
                                          ("STPQRT" "stpqrt_" %%STPQRT %STPQRT)
                                          ("STPQRT2" "stpqrt2_" %%STPQRT2
                                           %STPQRT2)
                                          ("STPRFB" "stprfb_" %%STPRFB %STPRFB)
                                          ("STPRFS" "stprfs_" %%STPRFS %STPRFS)
                                          ("STPTRI" "stptri_" %%STPTRI %STPTRI)
                                          ("STPTRS" "stptrs_" %%STPTRS %STPTRS)
                                          ("STPTTF" "stpttf_" %%STPTTF %STPTTF)
                                          ("STPTTR" "stpttr_" %%STPTTR %STPTTR)
                                          ("STRCON" "strcon_" %%STRCON %STRCON)
                                          ("STREVC" "strevc_" %%STREVC %STREVC)
                                          ("STREVC3" "strevc3_" %%STREVC3
                                           %STREVC3)
                                          ("STREXC" "strexc_" %%STREXC %STREXC)
                                          ("STRRFS" "strrfs_" %%STRRFS %STRRFS)
                                          ("STRSEN" "strsen_" %%STRSEN %STRSEN)
                                          ("STRSNA" "strsna_" %%STRSNA %STRSNA)
                                          ("STRSYL" "strsyl_" %%STRSYL %STRSYL)
                                          ("STRTI2" "strti2_" %%STRTI2 %STRTI2)
                                          ("STRTRI" "strtri_" %%STRTRI %STRTRI)
                                          ("STRTRS" "strtrs_" %%STRTRS %STRTRS)
                                          ("STRTTF" "strttf_" %%STRTTF %STRTTF)
                                          ("STRTTP" "strttp_" %%STRTTP %STRTTP)
                                          ("STZRZF" "stzrzf_" %%STZRZF
                                           %STZRZF)))

(COMMON-LISP:EXPORT
 '(%SLASDA %SLASDQ %SLASDT %SLASET %SLASQ1 %SLASQ2 %SLASQ3 %SLASQ4 %SLASQ5
   %SLASQ6 %SLASR %SLASRT %SLASSQ %SLASV2 %SLASWLQ %SLASWP %SLASY2 %SLASYF
   %SLASYF_AA %SLASYF_RK %SLASYF_ROOK %SLATBS %SLATDF %SLATPS %SLATRD %SLATRS
   %SLATRZ %SLATSQR %SLAUU2 %SLAUUM %SOPGTR %SOPMTR %SORBDB %SORBDB1 %SORBDB2
   %SORBDB3 %SORBDB4 %SORBDB5 %SORBDB6 %SORCSD %SORCSD2BY1 %SORG2L %SORG2R
   %SORGBR %SORGHR %SORGL2 %SORGLQ %SORGQL %SORGQR %SORGR2 %SORGRQ %SORGTR
   %SORGTSQR %SORHR_COL %SORM22 %SORM2L %SORM2R %SORMBR %SORMHR %SORML2 %SORMLQ
   %SORMQL %SORMQR %SORMR2 %SORMR3 %SORMRQ %SORMRZ %SORMTR %SPBCON %SPBEQU
   %SPBRFS %SPBSTF %SPBSV %SPBSVX %SPBTF2 %SPBTRF %SPBTRS %SPFTRF %SPFTRI
   %SPFTRS %SPOCON %SPOEQU %SPOEQUB %SPORFS %SPORFSX %SPOSV %SPOSVX %SPOSVXX
   %SPOTF2 %SPOTRF %SPOTRF2 %SPOTRI %SPOTRS %SPPCON %SPPEQU %SPPRFS %SPPSV
   %SPPSVX %SPPTRF %SPPTRI %SPPTRS %SPSTF2 %SPSTRF %SPTCON %SPTEQR %SPTRFS
   %SPTSV %SPTSVX %SPTTRF %SPTTRS %SPTTS2 %SRSCL %SSB2ST_KERNELS %SSBEV
   %SSBEV_2STAGE %SSBEVD %SSBEVD_2STAGE %SSBEVX %SSBEVX_2STAGE %SSBGST %SSBGV
   %SSBGVD %SSBGVX %SSBTRD %SSFRK %SSPCON %SSPEV %SSPEVD %SSPEVX %SSPGST %SSPGV
   %SSPGVD %SSPGVX %SSPRFS %SSPSV %SSPSVX %SSPTRD %SSPTRF %SSPTRI %SSPTRS
   %SSTEBZ %SSTEDC %SSTEGR %SSTEIN %SSTEMR %SSTEQR %SSTERF %SSTEV %SSTEVD
   %SSTEVR %SSTEVX %SSYCON %SSYCON_3 %SSYCON_ROOK %SSYCONV %SSYCONVF
   %SSYCONVF_ROOK %SSYEQUB %SSYEV %SSYEV_2STAGE %SSYEVD %SSYEVD_2STAGE %SSYEVR
   %SSYEVR_2STAGE %SSYEVX %SSYEVX_2STAGE %SSYGS2 %SSYGST %SSYGV %SSYGV_2STAGE
   %SSYGVD %SSYGVX %SSYRFS %SSYRFSX %SSYSV %SSYSV_AA %SSYSV_AA_2STAGE %SSYSV_RK
   %SSYSV_ROOK %SSYSVX %SSYSVXX %SSYSWAPR %SSYTD2 %SSYTF2 %SSYTF2_RK
   %SSYTF2_ROOK %SSYTRD %SSYTRD_2STAGE %SSYTRD_SY2SB %SSYTRF %SSYTRF_AA
   %SSYTRF_AA_2STAGE %SSYTRF_RK %SSYTRF_ROOK %SSYTRI %SSYTRI2 %SSYTRI2X
   %SSYTRI_3 %SSYTRI_3X %SSYTRI_ROOK %SSYTRS %SSYTRS2 %SSYTRS_3 %SSYTRS_AA
   %SSYTRS_AA_2STAGE %SSYTRS_ROOK %STBCON %STBRFS %STBTRS %STFSM %STFTRI
   %STFTTP %STFTTR %STGEVC %STGEX2 %STGEXC %STGSEN %STGSJA %STGSNA %STGSY2
   %STGSYL %STPCON %STPLQT %STPLQT2 %STPMLQT %STPMQRT %STPQRT %STPQRT2 %STPRFB
   %STPRFS %STPTRI %STPTRS %STPTTF %STPTTR %STRCON %STREVC %STREVC3 %STREXC
   %STRRFS %STRSEN %STRSNA %STRSYL %STRTI2 %STRTRI %STRTRS %STRTTF %STRTTP
   %STZRZF)
 '#:MAGICL.LAPACK-CFFI)

;;; End of file.
